Меню сайта

Задача №10

Составить программу, выводящую на экран сведения о периодических изданиях (наименование издания, тираж, годовая стоимость).


Program zap_10-

Uses Crt-

Const n=10-

Type izd = record

name:string[20]-

tir:integer-

stoim:real-

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.

Категория: Записи | Дата: 25.01.13

Меню раздела
Блок