forgalaxynexusp09txz
18.02.2020 23:36

(34 ) даны целые числа а и b (а > b). определить: результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления; остаток от деления а на b не используя стандартную операцию вычисления остатка. решите на pascal abc/ c цикла while

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
habman
09.06.2020 19:08

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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота