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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник