1. Информатика
  2. Составить программу в паскале

Составить программу в паскале : по номеру месяца вывести количество дней в нем

kryakrya04 kryakrya04    2   17.06.2019 17:50    2

Ответы
dina751 dina751  02.10.2020 03:59
Uses crt;
var i,j:integer;
begin
readln(i);
case i of
1,3,5,7,8,10,12 : writeln('31');
2: writeln('28');
4,6,9,11: writeln('30');
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nadya8903 nadya8903  13.06.2019 00:10
Скажите какие команды надо сделать в логомиры 3.0 что бы сделать звёзды 5, 7, 9, 11 концов...
nevidomskyamarg nevidomskyamarg  13.06.2019 00:10
Очем может антивирусная программа пользователя...
DAYN777DEBIL DAYN777DEBIL  14.08.2019 01:00
Шкала прогресса в видеоплеере имеет длину 500 пикселей при разрешении экрана 800×600 пикселей. при просмотре видео файла продолжительностью 2 часа 40 минут внезапно произошло изменение...
olgaslizova olgaslizova  14.08.2019 01:00
:1)посчитать сумму чётных чисел (от 2 до 18) 2)посчитать сумму чётных чисел (от k до n)...
GreatGenius GreatGenius  14.08.2019 01:00
Разработать алгоритм и программу решения : найти сумму отрицательных элементов двумерного массива находящихся на главной диагонали матрицы размером 10х10 (с вводом и выводом матрицы)...
sofiakuznetsova2004 sofiakuznetsova2004  14.08.2019 01:00
Иконки файлов некоторых типов стали как в notepad. как вернуть обычный вид иконок?...
Alexa2288 Alexa2288  14.08.2019 01:00
Подробно расписать. . 1. найти сумму чётных чисел (от к до n) 2.найти сумму чётных чисел (от 2 до 18)....
Коши Коши  14.08.2019 01:10
Написать программу, которая по заданным четырем значениям находит max(min(a,b),min(c,d))...
vvashr vvashr  14.08.2019 01:10
Паскаль напишите программу, которая вычисляет один из параметров газового состояния (уравнение менделеева-клапейрона): р, v, т, m- по задаваемым с клавиатуры значениям остальных...
Nartez Nartez  14.08.2019 01:30
Реферат на тему аппаратное обеспечение компьютера...

Популярные вопросы