Сколько 5 рублевых и 3 рублевых монет нужно, чтобы расплатиться - Free Pascal
Формулировка задачи:
Помогите исправить ошибки. Условие задачи: для чисел больше 7 программа должна вывести, сколько 5 рублевых и 3 рублевых монет нужно, чтобы расплатиться.
Например, я ввожу 8. Программа выдает 1 1. Например я ввожу 17. Программа выдает 1 4. Для 15 - 3 0.
Вот мой код на Паскаль.
var a,b,c:integer; begin read (a); while (a) mod 5<>0 do begin a:=a-3; b:=b+1; end; c:=a div 5; write (b); write (c); end.
Решение задачи: «Сколько 5 рублевых и 3 рублевых монет нужно, чтобы расплатиться»
textual
Листинг программы
var n,i,j:integer;
begin
repeat
write('n>7 n=');
readln(n);
until n>7;
for i:=0 to n div 5 do
for j:=0 to n div 3 do
if i*5+j*3=n then
writeln('5*',i,'+3*',j);
readln
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д