Question

Программа Паскаль
Дано 3 числа. Сколько из них двузначных?

Answer 1

var a,i,s:integer;
begin
writeln('Введите числа: ');
s:=0;
for i:=1 to 3 do begin
  readln(a);
  if (a>99) and (a<1000) then s+=1;
end;
writeln('Кол-во двузначных: ',s);
end.