Пожаловаться
- 26.06.2018 01:00
- Информатика
- remove_red_eye 17445
- thumb_up 12
Ответы и объяснения 1
Код PascalABC 3.0:
Var x,y:byte;
input:text;
Begin
Assign(input,'input.txt');
Reset(input);
ReadLn(input,x,y);
Case y of
1,3,5,7,8,10,12:Write(31-x);
2:Write(28-x);
4,6,9,11:Write(30-x)
End;
Close(input)
End.
Var x,y:byte;
input:text;
Begin
Assign(input,'input.txt');
Reset(input);
ReadLn(input,x,y);
Case y of
1,3,5,7,8,10,12:Write(31-x);
2:Write(28-x);
4,6,9,11:Write(30-x)
End;
Close(input)
End.
Пожаловаться
- 27.06.2018 20:14
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы