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

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

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

НА ПИТОНЕ

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.

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

Объяснение:

если миша запретил маше закрашивать клеточку, двумя или более сторонами примыкающую к уже закрашенным клеточкам, значит маша может закрашивать клеточки в ряд. прямоугольник 4*100 можно представить как 4 ряда по сто клеточек, 2 ряда закрашены - ответ 200

2 способ

маша может закрасит клеточки в шахматном порядке

400 : 2 = 200

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.