Предмет:
ИнформатикаАвтор:
ashes09eovar
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.
Автор:
finn46Добавить свой ответ
Предмет:
БиологияАвтор:
brittanyamtjОтветов:
Смотреть
Предмет:
МатематикаАвтор:
gianniОтветов:
Смотреть
Предмет:
Английский языкАвтор:
cheesestickp5qyОтветов:
Смотреть