Г д з в помощь)))
если честно я сама туда лазию
1)
возьмем число 42
42 больше либо равно 41 - да
42 -12 = 30
30 больше либо равно 41 - нет
значение равно 30
возьмем число 50
50 больше либо равно 41 - да
50 - 12 = 38
38 больше либо равно 41 - нет
значение равно 38
2)
число 41
3)
число 53
4)
число 40
var a,b:integer;
begin
writeln ('Введите два числа:');
read (a,b);
if a > b then begin
writeln ('Максимальное число: ',a);
end
else begin
writeln ('Максимальное число: ',b);
end;
end.
var
a, b, ans: Integer;
begin
Readln(a, b);
ans := 0;
while ans * b <= a do
ans := ans + 1;
ans := ans - 1;
Write(ans,' ', a-(ans*b));
end.
256=2^8
Один байт для кодировки одной точки.
Значит, 240 точек.