Hayulkon 23 октября 2019 в 09:56
17 баллов, сделать на паскале
Нужно заплатить S рублей, есть купюры 100, 50,10,2,1 рубль. Сколько купюр каждого достоинства нужно отдать покупателю, если он будет платить с самых крупных.
17 баллов, сделать на паскале
Нужно заплатить S рублей, есть купюры 100, 50,10,2,1 рубль. Сколько купюр каждого достоинства нужно отдать покупателю, если он будет платить с самых крупных.
Var s,k1,k2,k3,k4,k5:integer;
begin
write(s=); readln(s);
k1:=s div 100;
k2:=s mod 100 div 50;
k3:=s mod 50 div 10;
k4:=s mod 10 div 2;
k5:=s mod 2;
writeln(100 - ,k1,, 50 - ,k2,, 10 - ,k3,, 2 - ,k4,, 1 - ,k5);
end.
Пример:
s=463
100 - 4, 50 - 1, 10 - 1, 2 - 1, 1 - 1
begin
write(s=); readln(s);
k1:=s div 100;
k2:=s mod 100 div 50;
k3:=s mod 50 div 10;
k4:=s mod 10 div 2;
k5:=s mod 2;
writeln(100 - ,k1,, 50 - ,k2,, 10 - ,k3,, 2 - ,k4,, 1 - ,k5);
end.
Пример:
s=463
100 - 4, 50 - 1, 10 - 1, 2 - 1, 1 - 1
Компьютеры и вычисления
94
68
Для комментирования необходимо зарегистрироваться на сайте