В ПАСКАЛЕ!

№1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько среди них чисел, кратных 4;

№2 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить

среднее арифметическое нечетных чисел;

№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить

верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.

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. 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.