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

Дана пачка денег больше 7 рублей.выдать деньги по 3 и 5 рублей.задача на Паскаль 

  1. Ответ
    Ответ дан HRAshton
    var a: integer;
    begin
         readln(a);
         while (a >= 3) do
         begin
               if (a >= 4) then
               begin
                    writeln(a, ' - 4 = ', a - 4);
                    a := a - 4;
               end;
               if (a >= 3) then
               begin
                    writeln(a, ' - 3 = ', a - 3);
                    a := a - 3;
               end;
         end;
    end.

    Так?
Самые новые вопросы