• Написать программу, которая вычисляет среднюю (за неделю) температуру воздуха. Исходные данные должны вводиться с клавиатуры.

    Введите температуру воздуха за неделю.
    Понедельник -> 12
    Вторник -> 10 '
    Среда -> 16
    Четверг -> 18
    Пятница -> 17
    Суббота -> 16
    Воскресенье -> 14
    Средняя температура за неделю: 14.71 град.

Ответы 1

  • На будущее: за 8 баллов программу никто писать не будет.Программа, возможно, не совершенна (т.е. по-любому, можно было сделать короче), однако работает. Написана на Pascal, тестировал в веб-среде PascalABC.var mo,tu,we,th,fr,sa,su,a: ShortInt;var b: Real;BeginWrite('Температура воздуха в Понедельник: ');Readln(mo);Write('Температура воздуха во Вторник: ');Readln(tu);Write('Температура воздуха в Среду: ');Read(we);Write('Температура воздуха в Четверг: ');Readln(th);Write('Температура воздуха в Пятницу: ');Readln(fr);Write('Температура воздуха в Субботу: ');Readln(sa);Write('Температура воздуха в Воскресенье: ');Readln(su);a:=mo+tu+we+th+fr+sa+su;b:=a/7;Write('Средняя температура воздуха: ',b:0:2,' градусов.');End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years