Question

Даю 20 балов за решение!!!
1. Определите, без помощи компьютера, что будет напечатано в результате работы программы,
при а=129, b=235?
var
a, b: integer;
begin
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
if a > b then writeln ('A = ',a,'; B = ',b) else writeln ('A = ',b,'; B = ',a);
end.
2. Определите, без помощи компьютера, что будет напечатано в результате работы
программы, при k=302?
var k, number: integer;
begin
write('Введите день года: ');
readln(k);
number := k mod 7;
writeln('Номер дня недели: ',number);
end

Answer 1

 №1 A = 335; B = 129
№2
302
номер дня недели: 1

Answer 2

1. Так как b > a, то идем по ветке "else":
A = 235, B = 129.

Ответ: A = 235; B = 129.

2. mod - остаток от деления.

Делим 302 на 7 и пишем остаток.

302 mod 7 = 1.

Ответ: Номер дня недели: 1.