ПАСКАЛЬ9.1. Запросить у юзера денек, месяц и год. Вывести на экран:
ПАСКАЛЬ
9.1. Запросить у пользователя денек, месяц и год. Вывести на экран: если день от 1 до 5, то вывести начало, если от 6 до 14, то вывести 1-ая половина, если 15, то вывести середина, если от 16 до 25, то вывести вторая половина, если от 26 до 31, то вывести конец. В той же строке вывести заглавие месяца в родительном падеже. Проверить и на иной строке вывести високосный или невисокосный год.
9.2. Запросить у юзера целое число, последнюю цифру дописать впереди числа, вывести результат на экран.
Задать свой вопрос
Никита Гулагашвили
Желая НЕТ
Ярослава Иофе
обусловься, пожалуйста)
Бытик
Варвара
В РОДИТЕЛЬНОМ ПАДЕЖЕ ЦИФРА БЫТЬ НЕ МОЖЕТ)
Владик Койдан
это вывод в р.п. Меня интересует ввод
Тройнина
Рита
а есть разница?)
Яна Плидова
в коде. мне переменную месяца задавать как строчку или как целое число
Гаченков
Васек
и в операторе case писать слова или числа
Кира Козловицкая
пусть будут слова)
Руслан Чебушев
нет, пусть будут цифры, в операторе case либо числа, либо знаки (по одной буковке). Со словами заморочиться - прописать для каждого случая через if..then
Ева Туласова
спасибо)
1 ответ
Савайтанов
Семён
Uses crt;
var dd,mm,gg:integer;
begin
readln(dd,mm,gg);
case dd of
1..5: writeln('начало');
6..14: writeln('1-ая половина');
15: writeln('середина');
16..25: writeln('вторая половина');
26..31: writeln('конец');
end;
case mm of
1: writeln('января');
2: writeln('февраля');
3: writeln('марта');
4: writeln('апреля');
5: writeln('мая');
6: writeln('июня');
7: writeln('июля');
8: writeln('августа');
9: writeln('сентября');
10: writeln('октября');
11: writeln('ноября');
12: writeln('декабря');
end;
if gg mod 4=0 then writeln ('високосный') else writeln('не високосный');
end.
---
var a:integer;
begin
readln(a);
writeln(a mod 10,a);
end.
var dd,mm,gg:integer;
begin
readln(dd,mm,gg);
case dd of
1..5: writeln('начало');
6..14: writeln('1-ая половина');
15: writeln('середина');
16..25: writeln('вторая половина');
26..31: writeln('конец');
end;
case mm of
1: writeln('января');
2: writeln('февраля');
3: writeln('марта');
4: writeln('апреля');
5: writeln('мая');
6: writeln('июня');
7: writeln('июля');
8: writeln('августа');
9: writeln('сентября');
10: writeln('октября');
11: writeln('ноября');
12: writeln('декабря');
end;
if gg mod 4=0 then writeln ('високосный') else writeln('не високосный');
end.
---
var a:integer;
begin
readln(a);
writeln(a mod 10,a);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов