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

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

Question

Информатика

Аксюта

13 апреля, 08:50

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

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

+3

Ответы (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 числа. Сколько из них двузначных?