tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу, которая получает
Напишите программу, которая получает номер месяца и выводит соответствующее ему время года или сообщение об ошибке. пример: введите номер месяца: 5 весна. пример: введите номер месяца: 15 неверный номер месяца. сос!
semenem15
3 19.03.2019 18:39
21
Ответы
alhanovak2
26.05.2020 05:05
(вроде так)
Var mesyac:integer;
begin
writeln('введите номер месяца');
readln(mesyac);
if mesyac = 12 or 1 or 2 then
writeln ('зима');
if mesyac = 3 or 4 or 5 then
writeln ('весна');
if mesyac = 6 or 7 or 8 then
writeln ('лето');
if mesyac = 9 or 10 or 11 then
writeln ('осень')
else writeln('ошибка, не правильно введен месяц');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
zxvgg
09.09.2019 07:30
Для кодирования цветного изображения используется 16 цветов. чему будет равен объем файла размером 400 х 600 пикселей?...
varvaranepomnas
09.09.2019 07:30
Решить по информатике чертёжнику был дан для исполнения следующий алгоритм: сместиться на (1; 1) ,сместиться на (-3; 2), сместиться на (0; 4) ,конец. какую единственную...
Lesya2601
30.09.2019 23:40
10 класс составить программу которая определяет количество цифр во введенном с клавиатуры целом числе. указание. введите число, преобразуйте число в строку, вычислите длину...
мопс73
12.07.2019 19:20
Какой объем информации составляет растровое графическое изображение размером 10x10 пикселей, если используется 64 различных цвета? ответ запишите в байтах....
Тане44ка
12.07.2019 19:20
Решить в паскале,по информатике типа integer. дано двузначное число.вывести число,полученное при перестановке цифр исходного числа. возьмем к примеру число 35 нужно получить...
ahmad7froukhp00vlz
12.07.2019 19:20
Где ошибка? sub сер dim x, y, z, f, max, min as single x = val(inputbox(2)) y = (inputbox(6)) z = (inputbox(10)) if x / 2 y / 3 z / 4 then if x / 2 y / 3 then max = x /...
mrazamar0kk
11.06.2019 13:10
Вывести в центр экрана пульсирующие в противофазе (т.е. расширяющийся и сужающийся, как на анимации) по размерам от 0 до 100 пикселей квадрат и окружность на экран.в крайних...
V73663
18.05.2019 04:20
Составить программу на яп паскаль, которая бы при генератора сч [напомню, это ф-ции randomize и random(i)] позволяла бы сыграть с пк в игру «угадай число» при виртуальной...
dinagasanova12
18.05.2019 02:20
Сколько целых чисел расположено между числами 0 и 24...
zaraza8999
18.05.2019 02:20
5x(x-3)+7x-21=0 ; 7x^3-56x^2+9x-72=0; (y^2-5y)^2=30y-6y^2; 9-25x^2+90x-81=0; решить...
Популярные вопросы
Как решить примеры задание 35.3 ?...
2
Скажите как можно больще женские имена на букву в...
3
АЛГЕБРА, ЛОГАРИФМЫустановите знак выражения:...
3
Онлайн мектеп платформасы туралы пікір 70-80 сөз ед побыстрее ...
1
Адамдардың бөлтірікке жасаған іс-әрекеттеріне қалай қарайсыздар? (көксерек)...
3
972.является ли линейным неравенством с одной переменной неравенства...
1
В чём особенность политического строя японии (в системе управления)...
3
Ә) Сюжеттің өрбу кезендері бойынша оқиғаны ангімеле...
1
Напишите приглашение на свой любимый праздник....
2
Дипломат мальчики .Найдите в тексте просторечные слова,используя слова,объясните...
3
Var mesyac:integer;
begin
writeln('введите номер месяца');
readln(mesyac);
if mesyac = 12 or 1 or 2 then
writeln ('зима');
if mesyac = 3 or 4 or 5 then
writeln ('весна');
if mesyac = 6 or 7 or 8 then
writeln ('лето');
if mesyac = 9 or 10 or 11 then
writeln ('осень')
else writeln('ошибка, не правильно введен месяц');
end.