1. Определите значение переменной с после выполнения следующего фрагмента программы:
a=18
b= 20
c=3*b - a
c= c +8
print(c)
2. Написать программу, которая определяет, будет ли введенное число кратно 2 или 3 (кратно – значит остаток от деления=0)
3. a. Запишите программный код для блок-схемы
b. Выполните трассировку алгоритма при a= -5, b=7
(фотография прикреплена)
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.