Вывести пять строк разной длины из разных цифр - Pascal ABC

Формулировка задачи:

Составьте процедуру, выводящую строку из n одинаковых цифр. Длина строки и цифра, которая выводится, являются параметрами процедуры. Вывести пять строк разной длины из разных цифр. Процедуру оформить несколькими способами. P.S. Помогите пожалуйста с заданием)Заранее спасибо

Код к задаче: «Вывести пять строк разной длины из разных цифр - Pascal ABC»

textual
procedure p1(c:byte;n:byte);
var i:byte;
begin
for i:=1 to n do
if i<n then write(c)else writeln(c);
end;
begin
p1(3,10);
p1(5,15);
p1(0,8);
p1(9,12);
p1(7,20)
end.

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ