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

Question

Информатика

Стюра

30 ноября, 09:04

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

+3

Ответы (1)

Знаете ответ на вопрос?

Ефимия · Answer 1

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.

Так?