Question

Написать программу, которая по номеру дня недели(натуральному числу от 1 до 7) выдает в качестве результата количество уроков в Вашем классе в этот день. (7 урок каждый день)

Answer 1

Получится так:

Program p1;
Var a:integer;
Begin 
Write('Введите день недели: '); 
Readln(a); 
case a of   
1..5: Writeln('В этот день у вас 7 уроков');   
6,7: Writeln('В выходной у вас нету уроков!');     
else Writeln('Вы неверно ввели день!'); 
End;
End.

Answer 2

Program to Calculate the Number of Lessons on a Given Day

Here is a program written in Pascal that calculates the number of lessons in a class on a given day based on the day of the week (represented by a natural number from 1 to 7):

```pascal var n, i, s, a1, a2, a3, a4, a5, a6, n1, n2, n3, n4, n5, n6: integer; a, ans: extended;

begin read(n);

if n > 3 then n1 := 9 else n1 := 0;

if n > 5 then