profile
Опубликовано 6 лет назад по предмету Информатика от DinosaurTrain

Пожалуйста, помогите с информатикой! Очень срочно! Задача решается в Pascal.​

  1. Ответ
    Ответ дан contrlc

    var

     A, D, Q, R: integer;

    begin

     read(A, D);  

     Q := 0; R := 0;

     while (A >= D) do  

     begin

       A := A - D;    

       Q := Q + 1;

     end;

     R := A;

     write('Частное = ', Q, ' Остаток = ', R);

    end.

Самые новые вопросы