Вопрос школьника по предмету Информатика
напишите программу которая вычисляет среднюю за неделю температуру воздуха.Исходные данные вводятся с клавиатуры Средняя температура за неделю 14.71
Ответ учителя по предмету Информатика
program temperature;
var day: integer;
current, sum: real;
begin
sum := 0;
for day := 1 to 7 do
begin
read(current);
sum := sum + current;
end;
writeln(sum / 7);
end.
Похожие вопросы от пользователей
5(x+1)+6(x+2)=11(x+3)
6(y-1)+3(8-y)=3(y+2)
Постройке отрезок AB=12 см
Отметьте на этом отрезке точки
C,Dи E так что бы
a) AC был равен 1/6 от AB
б) CD был равен 4/5 от CB
в) DE был равен 3/2 от AC