Var
a:integer;
begin
write(‘Введите номер месяца: ‘);
readln(a);
case a of
1: writeln(‘Январь.31 день’);
2: writeln(‘Февраль.29 дней’);
3: writeln(‘Март.31 день’);
4: writeln(‘Апрель.30 дней’);
5: writeln(‘Май.31 день’);
6: writeln(‘Июнь.30 дней’);
7: writeln(‘Июль.31 день’);
8: writeln(‘Август.31 день’);
9: writeln(‘Сентябрь.30 дней’);
10: writeln(‘Октябрь.31 день’);
11: writeln(‘Ноябрь.30 дней’);
12: writeln(‘Декабрь.31 день’);
end;
end.
2.
var
a:integer;
begin
writeln(‘Введите число: ‘);
readln(a);
case a of
1: write(a, ‘ Копейка’);
2..4: write(a, ‘ Копейки’);
5..20: write(a, ‘ Копеек’);
end;
end.
Источник: globuss24.ru
2 9 По номеру месяца вывести название поры года
Составить программу, которая по введенному номеру месяца выдает, сколько дней в этом месяце. Год считать не високосным
Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.
Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.
Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.
Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.
- Обратная связь
- Правила сайта
Источник: www.soloby.ru
Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем.
Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 20), обозначающего денежную единицу, дописывает слово «Копейка» в правильной форме. Например, 5 копеек, 1 копейка и т. д.
vara:integer;beginwrite(‘Введите номер месяца: ‘);readln(a); case a of 1: writeln(‘Январь.31 день’); 2: writeln(‘Февраль.29 дней’); 3: writeln(‘Март.31 день’); 4: writeln(‘Апрель.30 дней’); 5: writeln(‘Май.31 день’); 6: writeln(‘Июнь.30 дней’); 7: writeln(‘Июль.31 день’); 8: writeln(‘Август.31 день’); 9: writeln(‘Сентябрь.30 дней’); 10: writeln(‘Октябрь.31 день’); 11: writeln(‘Ноябрь.30 дней’); 12: writeln(‘Декабрь.31 день’);end;end.2.vara:integer;beginwriteln(‘Введите число: ‘);readln(a);case a of1: write(a, ‘ Копейка’);2..4: write(a, ‘ Копейки’);5..20: write(a, ‘ Копеек’);end;end.
Получаем название месяца или дня недели по его номеру в Excel
Добавить свой ответ Ответить на вопрос
Еще вопросы
Источник: znanija.site