Предмет: Информатика,
автор: stasiasa
Дана пачка денег больше 7 рублей.выдать деньги по 3 и 5 рублей.задача на Паскаль
Ответы
Автор ответа:
0
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.
Так?
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.
Так?
Похожие вопросы
Предмет: Математика,
автор: jopa228444
Предмет: Русский язык,
автор: gabibbabaev08167
Предмет: Информатика,
автор: kirillfilippov204
Предмет: Литература,
автор: Caterine
Предмет: География,
автор: умничка13настя