Ответы
Ответ дал:
0
program ch;
var a,n:integer;
begin
write('vvedite n:');
readln(n);
a:=0;
while a<=n do begin
a:=a+1;
writeln(a);
end;
end.
Блок схему сам составишь , тут всё написано .
var a,n:integer;
begin
write('vvedite n:');
readln(n);
a:=0;
while a<=n do begin
a:=a+1;
writeln(a);
end;
end.
Блок схему сам составишь , тут всё написано .
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад