Ответы
Ответ дал:
0
var a,i,n:integer;
begin
writeln('Введите a');
readln(a); n:=0;
for i:=1 to a do begin
n:=n+1; writeln(i);
end;
writeln('N = ',n);
end.
begin
writeln('Введите a');
readln(a); n:=0;
for i:=1 to a do begin
n:=n+1; writeln(i);
end;
writeln('N = ',n);
end.
Вас заинтересует
6 месяцев назад
1 год назад
5 лет назад
5 лет назад
7 лет назад