Вопрос по информатике:
ПОМОГИТЕ, ОЧЕНЬ НАДО!!!
Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года.
Пример:
Введите номер месяца
12
Введите день
25
До Нового года осталось 6 дней.
Пожаловаться
- 21.04.2018 23:54
- Информатика
- remove_red_eye 858
- thumb_up 34
Ответы и объяснения 1
Const
days:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var m,d,k,i:integer;
begin
writeln('Введите номер месяца');
readln(m);
writeln('Введите день');
readln(d);
k:=0;
for i:=1 to m-1 do k:=k+days[i];
k:=365-k-d;
writeln('До Нового года осталось ' ,k,' дней (день/дня)');
end.
Пример:
Введите номер месяца
2
Введите день
12
До Нового года осталось 322 дней (день/дня)
days:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var m,d,k,i:integer;
begin
writeln('Введите номер месяца');
readln(m);
writeln('Введите день');
readln(d);
k:=0;
for i:=1 to m-1 do k:=k+days[i];
k:=365-k-d;
writeln('До Нового года осталось ' ,k,' дней (день/дня)');
end.
Пример:
Введите номер месяца
2
Введите день
12
До Нового года осталось 322 дней (день/дня)
Пожаловаться
- 22.04.2018 01:11
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы