Дам много баллов!!! ** паскале пишите Даны 20 целых чисел. Среди них найти количество...

Question

Дам много баллов!!! На паскале пишите Даны 20 целых чисел. Среди них найти количество четных, количество кратных 5 и количество двузначных

Answer 1

program chisla;

var a, even, krat, two,schet:integer;

begin

writeln('Введите 20 Целых чисел');

even:=0;

krat:=0;

two:=0;

schet:=0;

while schet

readln(a);

schet:=schet+1;

if (a mod 2 = 0) then

even:=even+1;

if (a mod 5 = 0) then

krat:=krat+1;

if (a>9) and (a

two:=two+1;

end;

writeln('Всего ',even,' четных, ',krat,' кратных пяти и ', two,' двузначных.');

end.

Answer 2

Даны 20 целых чисел. Среди них найти количество четных, количество кратных 5 и количество двузначных

---

Comments

PascalABC.NET