Регистрация
алинагг
03.01.2023 14:11
Информатика
Есть ответ 👍

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

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

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

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

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

294
362
Посмотреть ответы 1

Ответы на вопрос:

EvgenyMalkin71
EvgenyMalkin71
4,6(7 оценок)

var

x: integer;

begin

writeln('введите число: ');

readln(x);

if(x> =100) or (x< =9) then

writeln('число не является двузначным')

else

writeln('число является двузначным');

end.

Популярно: Информатика