Question

Напишите программу для счета мелких денег.
Она должна спрашивать:
«Сколько у вас монет по 50 копеек?»;
«Сколько у вас монет по 10 копеек?»;
«Сколько у вас монет по 5 копеек?»;
«Сколько у вас монет по 1 копейке?».
После этого на экране должна появиться общая сумма.

Пример входа:
Сколько у вас монет по 50 копеек? 10
Сколько у вас монет по 10 копеек? 10
Сколько у вас монет по 5 копеек? 10
Сколько у вас монет по 1 копеек? 10

Пример результата:
Всего у вас 660 копеек.

НА ПИТОНЕ

Answer 1

program p1;

uses crt;

var a,b,c,d,e,s:integer;

begin

a:=50;

b:=10;

c:=5;

d:=1;

writeln('сколько у вас монет по 50');

read(e);

s:=a *e;

writeln('сколько у вас монет по 10');

read(e);

s:=s+b*e;

writeln('сколько у вас монет по 5');

read(e);

s:=s+c*e;

writeln('сколько у вас монет по 1');

read(e);

s:=s+d*e;

write('Всего копеек ',s);

end.

Подробнее - на -

Объяснение: