Программа Паскаль Дано 3 числа. Сколько из них двузначных?
Программа Паскаль Дано 3 числа. Сколько из них двузначных?
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var a: array[1..3] of integer; i,an: integer;
begin
for i:=1 to 3 do readln(a[i]);
for i:=1 to 3 do
if (a[i]>=10)and(a[i]<=100) then an:=an+1;
writeln(an);
end.