В ПАСКАЛЕ! №1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько...

Question

В ПАСКАЛЕ!

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

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

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

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

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

Comments

В одной программе допустимо все сделать?

Answer 1

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. 

Comments

это первая?

---

Это все вметсе

---

три в одном

---

а можешь в рознь написать?

---

Ты просто из середины цыкал вынеси ифы, они там по порядку, и вынеси выписать. И все. Тело цыкал у программ одно и то же

---

пожалуйста раздельно напиши!

---

Разве что через 2-3 часа

---

мне нужно сейчас!!!