Найти среднею температуру воздуха за неделю

Question

Найти среднею температуру воздуха за неделю (Паскаль) программу напишите

Answer 1

37

sergo123

08 марта 2023

varn,k: integer; a: real; i: byte; beginfor i: =1 to 7 dobeginWrite ('Температура на ',i,'день '); read (n); k: =k+n; end; a: =k/7; writeln ('Средняя температура=',a); readln; readln; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: