
Лука
4 год назад
МНОГО поинтов! Написать программу на языке Pacsal. Вот Задание.Пользователь вводит число и кол-во строк. На экран выводится указанное кол-во строк, в которых числа повторяются от 1 до кол-ва строк. Т.е. примерно так должно выйти. Вбиваем 5 4. Получаем "пирамидку":5555555555
ОТВЕТЫ

Moisej
Oct 24, 2020
//FPC 2.6.4
var
n, count, i, j: integer;
begin
readln (n, count);
for i:=1 to count do
begin
for j:=1 to i do write(n);
writeln();
end;
end.
var
n, count, i, j: integer;
begin
readln (n, count);
for i:=1 to count do
begin
for j:=1 to i do write(n);
writeln();
end;
end.
37
Смежные вопросы: