Кто знает паскаль Некоторая семья решила отдохнуть на море в июне месяце в течение 10-и дней. Они могут приобрести билеты только в первый день каждой декады месяца (т.е. 1-го июня, 11-го июня, 21-го июня). Данные о прогнозе погоды в июне хранятся в текстовом файле vreme.in.

Задача: Напишите программу, которая определяет декаду июня месяца с наибольшим количеством солнечных дней. Программа будет содержать подпрограмму с именем PS с целым параметром – начало декады июня (1, 11 или 21). Подпрограмма возвратит количество солнечных дней соответствующей декады.

Ввод: Текстовый файл vreme.in содержит для каждого из 30-ти дней июня по одной букве, которая соответствует погоде соответствующего дня: ‘S’ – солнечно, ‘N’ - облачно, ‘P’ – дождь.

Вывод: Текстовый файл vreme.out содержит две строки – в первой записаны два целых числа, разделенных дефисом – начало и конец периода отдыха. (Например: 1-10, 11-20 или 21-30), и во второй строке – количество солнечных дней в этом периоде.

Примечание. Все три декады июня имеют разное количество солнечных дней.

Стаилз2002    3   04.12.2020 11:02    1