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

Александеррррррр Александеррррррр    1   12.09.2019 05:00    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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика