Дано N чисел определить кол-во двузначных чисел (Без массива)

Question

Информатика

Филат

5 мая, 12:54

Дано N чисел определить кол-во двузначных чисел (Без массива)

+5

Ответы (1)

Знаете ответ на вопрос?

Эдуард · Answer 1

Var i, n, a, k:integer;

begin

k:=0;

readln (n) ;

for i:=1 to n do begin

readln (a) ;

if (a>=10) and (a<=99) then k:=k+1;

end;

writeln (k) ;

end.