Впаскале! №1 с клавиатуры вводятся 10 натуральных - вопрос №1102104292 от anna200521 13.05.2020 06:50

Question

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

anna200521 · Answer

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. ...