Составить программу, выводящую на экран сведения о периодических изданиях (наименование издания, тираж, стоимость подписки). Распечатать наименования изданий, для которых стоимость подписки превышает заданное значение.в паскале
Составить программу, выводящую на экран сведения о периодических изданиях (наименование издания, тираж, стоимость подписки). Распечатать наименования изданий, для которых стоимость подписки превышает заданное значение.в паскале
Гость
Ответ(ы) на вопрос:
Гостьend;
Var a : array[1..n] of izd;
i :byte;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите наименование издания ',I);
Readln(name);
Writeln(' Тираж');
Readln(tir);
Writeln('Стоимость за год');
Readln(stoim);
End;
Writeln('Периодические издания');
for i:=1 to n do
with a[I] do
writeln ('name,’ ‘,tir,’ ‘,stoim:4:2');
Readln;
end.
Не нашли ответ?
Похожие вопросы