Контрольна робота

Цикл з умовою
Тема5,розділ2
Задача2
Знайдіть мінімальне з натуральних чисел, що більше за 8000, яке кратне 47.
program p67;
uses crt;
Var n,k:word;
BEGIN
n:=8000;k:=0;
repeat
n:=n+1;
if n mod 47=0 then
Begin
write(n,' '); k:=k+1;
end;
until k=5;
END.

Задачі з повним умовним оператором з простою умовою

Тема3

Розділ11

Задача3

Дано номер дня тижня. Виведіть на екран назву дня (1- понеділок,...).

program dni;

uses crt;

Var n:integer;

BEGIN

writeln('vvedit nomer dnuy nedili');

readln(n);

case n of

1:write('ponedilok');

2:write('vivtorok');

3:write('sereda');

4:write('citverg');

5:write('puytneci');

6:write('cybbota');

7:write('nedilyu');

else write('ocibka!v nedili sim dniv,a ne bilce!');

end;

END.