Дано N чисел определить кол-во двузначных чисел (Без массива)
Ответы на вопрос
Ответил degtyarev327
0
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.
Ответил bmw740
0
Сможешь ещё блок-схему нарисовать?
Новые вопросы
Геометрия,
2 года назад
Английский язык,
2 года назад
Математика,
7 лет назад
Биология,
7 лет назад
Математика,
8 лет назад