PascalABC.NET
begin
var d := 0;
while True do
if ReadlnReal >= 22 then break
else d += 1;
Print( d div 7)
end.
Поделитесь своими знаниями, ответьте на вопрос:
Ждём потепления kлассная работа макс. 14 . дедлайн: 10 янв. 03: 30 ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt программа считывает максимальную дневную температуру в градусах за первый, второй и т. д. дни наблюдений до тех пор, пока не встретится температура не меньше 22.0℃. выводится количество полных недель, которое пришлось прождать до этого дня. сам этот день в период ожидания не включается. формат ввода в первой строке записана максимальная температура в первый день наблюдений, во второй строке — температура во второй день наблюдений и т.д. формат вывода количество полных недель до дня потепления. пример ввод вывод 15.9 16.3 16.8 19.1 20.5 20.1 21.8 22.4 1
temp = float(input())
days = 0
while temp < 22.0:
days += 1
temp = float(input())
print(days // 7)
Переменные хоть поменяй