Напишите программу, которая выводит на экран числа в указанном виде. Пример для 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.
Напишите программу, которая выводит на экран числа в указанном виде. Пример для 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.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Ошибка в программе заключается в неправильной логике вывода чисел. Вместо того, чтобы выводить числа от 1 до i, программа выводит разность между j и i, что приводит к некорректному результату.
Вот исправленная версия программы:
program qq1;var
n, i, j: integer;
begin
writeln('Введите значение n:');
readln(n);
for i := 1 to n do
begin
for j := 1 to i do
begin
write(j, ' ');
end;
writeln();
end;
end.
Теперь программа будет выводить числа от 1 до i на каждой строке.