Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы