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

Question

Информатика

Петяй

9 октября, 05:47

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

+1

Ответы (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.