Программа Паскаль Дано 3 числа. Сколько из них двузначных?
Программа Паскаль
Дано 3 числа. Сколько из них двузначных?
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы