Напишите программу, которая выводит на экран числа в указанном виде. Пример для n=6:1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 1 2 3 4 5 6 почему не получается вот программа program qq1; var n, i, j:integer; beginwriteln (' введите значение n:'); readln (n); for i:=1 to n do begin for j:=1 to i do write (j-i,''); writeln (); end; end.

Question

Muskat

Информатика

10 июня, 06:48

Напишите программу, которая выводит на экран числа в указанном виде. Пример для n=6:1 1 2 1 2 3 1 2 3 4 1 2 3 4 5 1 2 3 4 5 6 почему не получается вот программа program qq1; var n, i, j:integer; beginwriteln (' введите значение n:'); readln (n); for i:=1 to n do begin for j:=1 to i do write (j-i,''); writeln (); end; end.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Тимофей Михайлов · Answer 1

Var i, j:integer;

begin

for i:=1 to 6 do

begin

for j:=1 to i do write (j:2);

writeln;

end;

end.

Результат:

1.

1 2.

1 2 3.

1 2 3 4.

1 2 3 4 5.

1 2 3 4 5 6.