tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Другие предметы
Составить программу, которая
Составить программу, которая по введенному номеру месяца выдает, сколько дней в этом месяце. Год считать не високосным
zFast88
2 16.04.2019 23:00
1
Ответы
Pyfytz
16.04.2019 23:00
Var
a: Integer;
Begin
WriteLn ('Введите номер месяца');
ReadLn (a);
Case a Of
1, 3, 5, 7, 8, 10, 12: WriteLn ('31 день');
2: WriteLn ('28 дней');
4, 6, 9, 11: WriteLn ('30 дней');
End;
ReadLn
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы
radkov02p08713
14.09.2019 15:12
Развития баскетбола заранее )...
Plild
14.09.2019 15:18
Прокомментируйте следующий диалог двух персонажей романа м.твена «приключения гекльберри финна». какие языковые функции «не срабатывают» в данном случае? – вот если...
ренат123456789
06.04.2020 17:29
Чем различаются понятия русский национальный язык и литературный русский язык?...
крис903
06.04.2020 17:29
У меня,кажется,снова депрессия. И мне не кому выговориться, поэтому можно мне немного рассказать о себе здесь? Вообщем если в кратце, то я довольно эмоциональный...
89115603408
06.04.2020 17:28
файл размером 192 Кбайт передаётся через некоторое соединение в течение 30 с. Определите размер файла в килобайтах, который можно передать через это соединение за...
nastyaTYANnastya
10.11.2019 12:50
Язагадал число умножил его на 4 потом прибавиил к нему 19 и получил 91 какоея загадал?...
kamil7777
10.11.2019 12:52
Прочитайте предложения.исправьте ошибки при употреблении причастных оборотов. 1) перекрывший селевой поток горную дорогу стремительно несся вниз по ущелью. 2) затем...
sukaheva
10.11.2019 12:56
Жоғарыдағы киім атауларына ның нің дың дің тың тің тақия,қамзол,қосетек көйлек, кимешек шапан кебіс...
vika02bel
10.11.2019 12:57
Втечение 15 с вращение вала происходило согласно уравнению: φ = 20· t + 0,5·t^3,где φ – угол поворота, рад; t – время, с. определить: а) угловую скорость вала в момент...
Nikitaprodakshen
10.11.2019 12:57
Найти учебник культура. 8-9 классы. в.и. лях 2013 или 2015 ! издание именно этих годов есть ли в интернете в свободном доступе?...
Популярные вопросы
Купили 16 альбомов и 12 папок для рисования по одинаковой цене....
2
Укажите верное утверждение а)25 делитель 5 б)4 делитель 2 в)0...
2
Движущееся тело имеет кинетическую энергию 12 дж а импульс 2,1...
3
Решите систему уравнений графическим х+3)(в квадрате)+(у-2)(в...
1
Как пишится свежие молоко или свежее...
1
Выпишите наречие и выполни их морфологический разбор. к москве...
1
1. из перечня формул – na2o, naoh, h3po4, nah, mg(no3)2, feo,...
3
Дайте древнегреческий аналог римских имен: а) церера б) юпитер,...
1
Было выполнено сложение дробей. какие числа могут быть поставлены...
2
Длина прямоугольника равна 28 см.как и на сколько изменится его...
3
a: Integer;
Begin
WriteLn ('Введите номер месяца');
ReadLn (a);
Case a Of
1, 3, 5, 7, 8, 10, 12: WriteLn ('31 день');
2: WriteLn ('28 дней');
4, 6, 9, 11: WriteLn ('30 дней');
End;
ReadLn
End.