Вfree pascal'e. нужно записать программу. "ввести три целых числа с клавиатуры. найти их произведение, сумму и среднее арифметическое." p.s простите за столько тем, первый раз сдесь..
В задании требуется ввести код программы, описанной на странице 228 учебника и надо изменить программу так, чтобы она считала отклонения средней температуры каждого месяца от среднегодовой величины, должно получиться так:
Program Temperature; var T: array[1..12] of real; Dt:array[1..12] of real; i:integer; Tsred:real; begin for i:=1 to 12 do begin write('T[',i:2,'] = '); readln(T[i]); end; Tsred:=0; for i:=1 to 12 do Tsred:=Tsred+T[i]; Tsred:=Tsred/12; Writeln('Среднегодовая температура = ',Tsred:6:2); for i:=1 to 12 do begin Dt[i]:=T[i]-Tsred; writeln('Dt[',i:2,']',Dt[i]:6:2); end; end.
Ну а результаты получите, когда запустите программу.
Летающий автобус) 1. Мест в эконом-классе 120, а в бизнес-классе 40. 2. 100 процентов прибыли получим, если заполним все места. Билет в эконом-классе стоит в 2 раза меньше чем X. Получаем следующее уравнение: 40*X + 0.5*120*X = 100%, X = 1% от всей прибыли. Значит один билет в бизнес - классе приносит один процент прибыли. А один билет в эконом-классе приносит 0.5 процента прибыли. 3. Осталось рассчитать прибыль компании учитывая непроданные билеты: P = 100 - b - 0.5*a и написать программу:
var a,b:integer; begin repeat writeln('Введите количество непроданных билетов (a,b)'); readln(a,b); until (a<=120) and (b<=40)and (a>=0) and (b>=0); writeln('Прибыль компании составит ',100-b-0.5*a,'%'); end.
var a,b,c:integer;
begin
read(a,b,c);
writeln(a*b*c);
writeln(a+b+c);
writeln((a+b+c)/3);
end.