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.
Хз, если честно( информа в 8 да?) я в 6 прост
Ответ:
ответ 3
Объяснение:
в одном байте 8 бит значит 4*8=32бит
для того чтобы выполнить программу номер два необходимо чтобы в ванну спокойно вмещалось 15 литров.
Первая программа
1) Долить 5литров
2) Слить 3 литра
3) Долить 5 литров
4) Слить 3 литра
В ванне 4 литра
Вторая программа
1) Долить 5литров
2) Долить 5литров
3) Долить 5литров
4) Слить 3 литра
5) Слить 3 литра
6) Слить 3 литра
7) Слить 3 литра
В ванне 3 литра