Программа Паскаль Дано 3 числа. Сколько из них двузначных?
Answers & Comments
65536
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.
Answers & Comments
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.