Войти Регистрация Спроси ai-bota

Впаскале! №1 с клавиатуры вводятся 10 натуральных двузначных чисел. определить сколько среди них чисел, кратных 4; №2 с клавиатуры вводятся 10 натуральных двузначных чисел. определить среднее арифметическое нечетных чисел; №3 с клавиатуры вводятся 10 натуральных двузначных чисел. определить верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.

Ответ:

perminovdima20

01.10.2020 13:41

Var N,I,k,j,b,l:integer; Begin For I:=1 to 10 do begin Read(n); If n mod 4=0 then l:=l+1; If n mod 2<>0 then begin k:=k+n; j:=j+1; end; If ((n div 10)/(n mod 10))=2 then b:=1; End; Writeln('1-',l); writeln('2-',k/j); if b=1 then writeln('3-да') else writeln('3-нет'); End.

0,0(0 оценок)

Популярные вопросы: Информатика

natashakuznecz1

05.11.2022 01:40

Написать конспект на тему цифровые носители информации. дам 5звезд...

ahun2001ahun

21.07.2021 04:48

Дана строка текста слова разделены одним пробелом напечатать буквы входящие сделать входящий в исходный текст не менее двух в паскале...

dsefanova

16.01.2022 11:38

Решите в паскале с объяснением, найти скорость автомобиля, если известен пройденный путь s и время затраченное в пути t ( движение считать прямолинейным и равномерным...

alsav241357

16.01.2022 11:38

Написать программу, которая бы по введенному номеру единицы измерения (1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр) и длине отрезка l выдавала...

Суховруктик

16.01.2022 11:38

Надо в паскале сделать программу с решением этого ; 1) y=2ax²+b√x при x 100 2) y=a√x²+100 - bx x 100...

08760000

23.06.2021 08:42

Почему игра виснет land ! что надо делать...

Elka6677

23.06.2021 08:42

Написать программу в паскале с клавиатуры ваодится 10 чисел опередить два максимальных числа и вывести их по порядку например max1 =8 max2=9 массив не использовать! сделать...

tayteldiyev2005

30.04.2023 07:36

12. Правильные действия при завершении ввода данных Р 1) щелкнуть кнопку «Отмена» на панели инструментов 2) нажать клавишу 3) нажать клавишу 4) нажать клавишу 13. Для...

dkusnarev98

30.01.2023 00:42

1. Программа Microsoft Excel – это 1) табличный процессор2) текстовый редактор3) графический редактор4) база данных...

Murua

17.01.2021 09:54

Денису нужно перенести информацию с жёсткого диска одного компьютера на жёсткий диск другого. Объём информации, которую нужно скопировать, составляет 24,2\ Гб24,2 Гб....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку