Напишите программу для счета мелких денег.
Она должна спрашивать:
«Сколько у вас монет по 50 копеек?»;
«Сколько у вас монет по 10 копеек?»;
«Сколько у вас монет по 5 копеек?»;
«Сколько у вас монет по 1 копейке?».
После этого на экране должна появиться общая сумма.
Пример входа:
Сколько у вас монет по 50 копеек? 10
Сколько у вас монет по 10 копеек? 10
Сколько у вас монет по 5 копеек? 10
Сколько у вас монет по 1 копеек? 10
Пример результата:
Всего у вас 660 копеек.
НА ПИТОНЕ
оля1911
3
15.03.2020 22:54
59
Другие вопросы по теме Информатика
vaierchik
26.12.2021 16:10
DayanaEstDetei
26.12.2021 16:08
Victoria20066002
26.12.2021 16:07
Диа200426
26.01.2021 18:07
donkikas
21.09.2019 11:30
supermax18
21.09.2019 11:30
nechakva86
21.09.2019 11:30
Фара1323
04.09.2019 16:50
Yogurt1958
22.12.2019 14:09
Популярные вопросы
- Высказать-скажет,подсказать,подсказка,сказитель...
3 - Скакой силой давит на сиденье мотоциклист в верхней точке мертвой...
2 - Что означает скипетр на гербе? и что означает держава?...
2 - Ag2o h2o li2o bao fe2o3 что лишнее?...
2 - Выражение ( a+b/b -4a/a+b) умножить ab+b2/a-b...
1 - Известно, что прямая, заданная уравнением y=kx+b, проходит через...
1 - Соотнесите наречие и его образования а) весело б) вполовину в)...
3 - Read again and label the continents on the map...
3 - Із 330 м пряжі вивязали 15 однакових шарфів а з 560м-40 пар однакових...
2 - Сколько граммов метана необходимо сжечь, чтобы получить 5 моль...
3
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.
Подробнее - на -
Объяснение: