Даю 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