ПАСКАЛЬ АВС. Срочно,Напишите процедуру, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов '–'
ПАСКАЛЬ АВС. Срочно,Напишите процедуру, которая принимает параметр – натуральное число N – и выводит на экран линию из N символов '–'
Гость
Ответ(ы) на вопрос:
Гостьprogram gt;
var n:longint;
procedure Liniya(N: longint);
var i:longint;
begin
for i:=1 to n do
write('-');
end;
begin
readln(n);
Liniya(n);
end.
Не нашли ответ?
Похожие вопросы