Программа Паскаль

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

Question

Информатика

Настена

10 июля, 13:00

Программа Паскаль

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

+1

Ответы (1)

Знаете ответ?

Ема · 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.

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

Программа Паскаль

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