|
|
|
|
|
|
||
Пример:
Имеются данные об использовании компьютера в учебном процессе за каждый месяц года. Составить программу, которая обеспечивает ввод количества часов за каждый месяц и определяет расход машинного времени за весь год.
Program KH;
var S,K: Real;
M: (JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC);
begin
S:=0
for M:=JAN to DEC do begin
WriteLn('ВВЕДИ КОЛИЧЕСТВО ЧАСОВ ЗА',ORD(M)+1:3,' МЕСЯЦ');
ReadLn(K);
S:=S+K
end;
Write('S=',S:6:1)
end.