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

Ответы (1)

Вивсей 30.04.2025 2

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.

Так?

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ