Задача 3. Составить программу, которая по введенному номеру месяца выдает, сколько дней в этом месяце. Год считать не високосным.

1 способ

2 способ

Var a: Integer; Begin WriteLn ('Введите номер месяца'); ReadLn (a); Case a Of 1: WriteLn ('31 день'); 2: WriteLn ('28 дней'); 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; ReadLn End.

Var a: Integer; Begin WriteLn ('Введите номер месяца'); ReadLn (a); Case a Of 1, 3, 5, 7, 8, 10, 12: WriteLn ('31 день'); 2: WriteLn ('28 дней'); 4, 6, 9, 11: WriteLn ('30 дней'); End; ReadLnEnd.

4. Подведение итогов урока, выставление оценок

5. Домашнее задание

Поторить §_______с._________ отвечать на вопросы. Повторить опорный конспект.

⇐ Предыдущая 12