Найти среднею температуру воздуха за неделю ( паскаль) программу напишите
160
297
Ответы на вопрос:
var n,k: integer; a: real; i: byte; begin for i: =1 to 7 do begin write('температура на ',i,'день '); read(n); k: =k+n; end; a: =k/7; writeln('средняя температура=',a); readln; readln; end.
Популярно: Информатика
-
ОдУвАнЧиК0717.10.2022 17:56
-
VIDJER25.05.2022 07:20
-
Sofia123456789113.12.2020 22:05
-
kattya10023.10.2022 20:12
-
ab198me01.08.2020 09:20
-
Xela93624.10.2021 00:29
-
Семрал15.10.2022 01:33
-
83901008.09.2021 12:20
-
mmwo18.07.2020 06:36
-
Denchik1507005.01.2020 17:38