Никанор
5 год назад
Дано N чисел определить кол-во двузначных чисел (Без массива)
ОТВЕТЫ
Jones Richard
Oct 24, 2020
var i,n,a,k:integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if (a>=10) and (a<=99) then k:=k+1;
end;
writeln(k);
end.
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(a);
if (a>=10) and (a<=99) then k:=k+1;
end;
writeln(k);
end.
593
Смежные вопросы:
