Задача 4: Час расплаты Марат устроился работать в магазин комиксов. Всё в работе его радует, кроме необходимости - id2049502020210705 от VolhaRednaya8 05.07.2021 22:10

Question

Информатика: Задача 4: Час расплаты Марат устроился работать в магазин комиксов. Всё в работе его радует, кроме необходимости постоянно выдавать сдачу покупателям. У Марата есть неограниченное количество монет следующих номиналов: 1, 4, 13, 21, 22, 50 Сегодня к нему пришли пять покупателей которым нужно выдать следующие суммы сдачи: 29 38 46 79 107 Марату — для каждого значения сдачи выведите набор монет, которым его можно получить, и из всех таких наборов выберите минимальный по количеству монет. Номиналы монет

VolhaRednaya8 · Accepted Answer

1)

program z1;
var
k, m, r: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
r := 60 * k + m;
writeln('в минутах: ', r);
end.

2)

program z2;
var
k, m, a, b, l: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
write('a = ');
readln(a);
write('b = ');
readln(b);
write('l = ');
readln(l);
if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) then
writeln('пойду')
else
writeln('не пойду');
end.

3)

program z3;
var
m, r: integer;
begin
write('m = ');
readln(m);
r := m;
while r >= 60 do
r := r - 60;
writeln('стрелка будет показывать ', r, ' минут');
end.

MOGZ ответил