Всеволод
4 год назад
Пожалуйста посчитайте решить!!!! Вывести на печать числа от 0 до n, считая, что все числа натуральные, нужно составить 3 программы: 1) for 2)while 3) repeat
ОТВЕТЫ
Evgraf
Oct 24, 2020
1)
Program n1;
var n,i: integer;
begin
readln(n);
for i:=0 to n do write(i,' ');
end.
2)
Program n1;
var n,i: integer;
begin
readln(n);
i:=0;
while i<=n do
begin
write(i,' ');
i:=i+1;
end;
end.
3)
Program n1;
var n,i: integer;
begin
readln(n);
i:=0;
repeat
write(i,' ');
i:=i+1;
until i>n
end.
примечание:
0 не является натуральным числом, поэтому если надо, чтобы числа выводились начиная с 1, надо везде строчку i:=0 заменить на i:=1
Program n1;
var n,i: integer;
begin
readln(n);
for i:=0 to n do write(i,' ');
end.
2)
Program n1;
var n,i: integer;
begin
readln(n);
i:=0;
while i<=n do
begin
write(i,' ');
i:=i+1;
end;
end.
3)
Program n1;
var n,i: integer;
begin
readln(n);
i:=0;
repeat
write(i,' ');
i:=i+1;
until i>n
end.
примечание:
0 не является натуральным числом, поэтому если надо, чтобы числа выводились начиная с 1, надо везде строчку i:=0 заменить на i:=1
675
Смежные вопросы: