Кублен
Оракул
(97005)
10 лет назад
примени эту программу себе
program sdacha; {сдача с 50 руб}
uses crt;
type M=array [1..4] of integer;
const bn: M=(10, 5, 2, 1);
var
oc: array [1..4] of integer;
p, o, c: integer;
begin
clrscr;
{bn[1]:=10;
bn[2]:=5;
bn[3]:=2;
bn[4]:=1; }
write('сумма покупки (< 50)? --> ');
readln(p);
o := 50 - p;
writeln('сдача: ', o, ' руб. ');
for c := 1 to 4 do begin
oc[c] := o div bn[c];
o := o mod bn[c];
end;
for c := 1 to 4 do if oc[c] > 0 then
writeln(bn[c], ' руб. : ', oc[c], ' шт. ');
writeln('konec zadachi');
readln;
end.
2. Написать программу, которая выводит сумму всех цифр, содержащихся в данной строке ( вводишь строку, где есть цифри или символи, а в результате - сумма етих цифр)