Question

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

Answer 1

Паскаль? Если да то код ниже


Program noname;
Var i, a, b, c, n:integer;
Begin
a:=0;
b:=0
c:=0;
For i:=1 to 20 do
begin
Readln(n);
if (n mod 2=0) then
a:=a+1;
if (n mod 5=0) then
b:=b+1;
if (n>9) then
If (n<100) then
c:=c+1;
End;
Writeln(a);
Writeln(b);
WriteLn(c) ;
End.