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