1var s, n: integer; begin s : = 25; n : = 0; while 400 s*s do begin s : = s - 1; n : = n + 3 end; writeln(n); - id38895220200324 от dashponi2007 24.03.2020 06:43

Question

Информатика: 1var s, n: integer; begin s : = 25; n : = 0; while 400 s*s do begin s : = s - 1; n : = n + 3 end; writeln(n); end.

dashponi2007 · Accepted Answer

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
n,s,t,i:integer;
begin
Write('Укажите количество данных: ');
Read(n);
Writeln('Теперь вводите данные');
s:=0;
for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4

1var s, n: integer; begin s : = 25; n : = 0; while 400 < s*s do begin s : = s - 1; n : = n + 3 end; writeln(n); end.

MOGZ ответил