tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Поскаль выручите 3. написать
Поскаль выручите 3. написать программу определения времени года по номеру месяца
даун47
2 24.08.2019 09:00
0
Ответы
dariarez
05.10.2020 16:16
Программа на паскале:
var n:integer;
begin
write('n = ');
readln(n);
case n of
1,2,12: writeln('Зима');
3..5 : writeln('Вечна');
6..8 : writeln('Лето');
9..11 : writeln('Осень');
else writeln('Ошибка ввода');
end;
end.
Пример:
n = 2
Зима
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
osazienko
16.12.2021 02:46
Вивести 10 списків та порівняти довжини в найдовшому знайти 3 и 7 элемент Создание списка import math import random for i in range(0,10): A=random.randint(1,5) #print(...
Alina522542
16.12.2021 02:56
Создать в Windows Form БД Больница ̶ база данных содержит сведения о фамилии пациента, фамилии врача, дате рождения (год, месяц, число) пациента, номере телефона, домашнем...
ДанилКаДми
16.12.2021 03:01
Банк предлагает 3 вида вкладов: на 3 месяца под p1%, на 6 месяцев под p2% и на год под p3%. Какой из вкладов наиболее выгоден для вкладчика?...
111леся199
16.12.2021 03:21
Доступ,объём,быстродействие,разрядность...
dvika12
16.12.2021 03:22
в C++ написати код (програму) яка зможе виконати наступне: В послідовності чисел знайти добуток чисел, кратних 3....
frogRICH
23.09.2019 01:50
Вчем ошибка? пишет встречено then ,а ожидалось ; program n_8; var x,a,b,c,z: integer; begin writeln( нахождение наибольшего числа ); write( введите значения a,b,c,z );...
Neronkilir228
23.09.2019 02:00
Антон выложил на столе из карточек слово: барракуда , а затем стал менять местами соседние карточки. какие слова могли у него получиться, если он сделал ровно 5 обменов?...
aser101q
08.08.2019 09:30
Сохраняется ли информация в оперативной памяти после выключения компьютера?...
olgavish761
08.08.2019 09:30
Отметьте лишнее а) сканер б) мышь с) клавиатура д) процессор...
tyanhinata
08.08.2019 09:50
Составить блок схему алгоритма для вычисления суммы четырех чисел...
Популярные вопросы
Сор 4 четверть литературное чтение 4 класс...
2
Переведите на русский с украинского языка...
3
Дан y=f(x) график функции. Найти:а) область определения функции;б)...
1
He picture. Where are they? 2 @ Where do you like going inyour free...
3
Сколько граммов аминоетановои кислоты прореагирует с 16 г кальция?...
3
1. Читайте книгу Джонс Ходячий замок Хаула или слушайте аудиозапись...
2
1. Яка потужність крана, якщо вантаж масою 20 тон піднімає на висоту...
3
Matnni o qing,sarlavha qo ying . 3 sinf o zbek tili 1 mashq mavzu yoz...
1
PLEASE 4,5,6 ИЛИ ЧТО-НИБУДЬ...
2
Записати рівняння різнотипних реакцій (не менше 4), в яких може брати...
1
var n:integer;
begin
write('n = ');
readln(n);
case n of
1,2,12: writeln('Зима');
3..5 : writeln('Вечна');
6..8 : writeln('Лето');
9..11 : writeln('Осень');
else writeln('Ошибка ввода');
end;
end.
Пример:
n = 2
Зима