Напишите процедуру в Паскале, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов '–'.
Напишите процедуру в Паскале, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов '–'.
Гость
Ответ(ы) на вопрос:
Гостьvar
n: integer;
procedure WriteNSymbols(n: integer; c: char);
var
i: integer;
begin
for i := 1 to n do
write(c);
end;
begin
readln(n);
WriteNSymbols(n, '-');
end.
Не нашли ответ?
Похожие вопросы