пожалуйста помогите подскажите как делать такое задание в delphi
10-11 класс
|
Нужно СЕГОДНЯ итак надо по номеру дня недели определить чем вы занимаетесь в свободное время.Можно написать любые занятия.
3 разные виды занятия.
Описать когда свободное время ,тоесть действия не определены.
var n: integer;
begin
write('Введите № дня недели -> ');
readln(n);
case n of
1: write('Занятие1');
2: write('Занятие2');
3: write('Занятие3');
4: write('Занятие4');
5: write('Занятие5');
6: write('Занятие6');
7: write('Занятие7');
end;
case n of
1..5: writeln(' (рабочий)');
6..7: writeln(' (выходной)');
end;
readln;
end.
Оператор выбора CASE?
посмотри по примеру, сейчас напишу. Примерно так или в каждый день еще по три занятия нужно?
Другие вопросы из категории
оперативной памяти размером в 16 байтов; В – конечное число точек на плоскости, соединённых отрезками кривых линий; С – единица измерения расстояния; Д – аргумент или результат процедуры.В ответе запишите найденные слова: сначала А, затем, В, С и Д, через один пробел, без знаков препинания.
2.к каким последствия приводит частая установка и удаление программ
Читайте также
Для каждого из перечисленных ниже десятичных чисел построили двоичную запись. Укажите число, двоичная запись которого содержит наибольшее количество значащих нулей.
((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))
1) 1 2) 2 3) 3 4) 4
2)Для какого имени истинно высказывание:
¬ (Первая буква имени гласная → Четвертая буква имени согласная)?
1) ЕЛЕНА 2) ВАДИМ 3) АНТОН 4) ФЕДОР
содержащего литеры str2 в обратном порядке. Например revpositn('внешность','сон') должно возвратить 5, потому что строка 'нос' (перевернутое сон) содержится в слове 'внешность' начиная с 5-й позиции. Заметим также, что revpositn('внешность', 'нос') дает 0.(пожалуйста обьясните подробно как делать задачу)