Var St: string; z:string[10]; x:string[2]; i,j,k,m: integer; //новые переменные Begin Write('введите строку текста - St'); Readln(St); k:=0; //обнуляем на всякий случай z:='0123456789'; i:=1; for j:=1 to length(St) do //начало begin; for m:=1 to 10 do if St[j]=z[m] then inc(k); end; if k=0 then begin; writeln('в тексте нет цифр'); exit; end; //конец while i<=length(st)-1 do begin x:=copy(st,I,2); if (x[1]=x[2]) and (pos(x[1],z)<>0) then begin delete(st,i,2); insert('две',st,i); i:=i+1; end; i:=i+1; end; writeln('преобразованная строка ', st); End.
Банковский вклад — это сумма денег, переданная банку на хранение с целью получить доход в виде начисленных процентов. Раз в какой-то промежуток времени (в задачах это, как правило, месяц или год) банк начисляет на текущую сумму некоторое количество r% процентов. Раз в год после начисления процентов клиент, как правило, имеет право доложить на счет любую сумму денег. Также клиент имеет право снимать со счета любую сумму (естественно, не превышающую имеющуюся). Время, когда он может это сделать, указывается в задаче. Пример: В январе 2014 года клиент положил в банк 30000 рублей под 10% годовых, которые банк начисляет раз в год в декабре. Сколько рублей будет на счете у клиента в январе 2017 года? То, что банк начисляет на текущую сумму 10%, значит, что после начисления процентов сумма будет составлять 110% от суммы, находящейся на счете до начисления процентов. Составим таблицу: Г о д С у м м а н а с ч е т е д о н а ч и с л е н и я я н в а р ь С у м м а н а с ч е т е п о с л е н а ч и с л е н и я д е к а б р ь ГодСумма на счете до начисления %Сумма на счете после начисления %(январь)(декабрь)2014300001,1⋅3000020151,1⋅300001,12⋅3000020161,12⋅300001,13⋅30000 Таким образом, в декабре 2016 года после начисления процентов на счете у клиента будет 1,13⋅30000 рублей. Эта же сумма будет у него на счете и в январе 2017 года (т.к. проценты начисляются только в декабре). Значит, ответом будет 39930 рублей. Ознакомиться с полной теорией
z:string[10];
x:string[2];
i,j,k,m: integer; //новые переменные
Begin
Write('введите строку текста - St');
Readln(St);
k:=0; //обнуляем на всякий случай
z:='0123456789';
i:=1;
for j:=1 to length(St) do //начало
begin;
for m:=1 to 10 do
if St[j]=z[m] then inc(k);
end;
if k=0 then
begin;
writeln('в тексте нет цифр');
exit;
end; //конец
while i<=length(st)-1 do
begin
x:=copy(st,I,2);
if (x[1]=x[2]) and (pos(x[1],z)<>0) then
begin
delete(st,i,2);
insert('две',st,i);
i:=i+1;
end;
i:=i+1;
end;
writeln('преобразованная строка ', st);
End.
Відповідь:
Банковский вклад — это сумма денег, переданная банку на хранение с целью получить доход в виде начисленных процентов. Раз в какой-то промежуток времени (в задачах это, как правило, месяц или год) банк начисляет на текущую сумму некоторое количество r% процентов. Раз в год после начисления процентов клиент, как правило, имеет право доложить на счет любую сумму денег. Также клиент имеет право снимать со счета любую сумму (естественно, не превышающую имеющуюся). Время, когда он может это сделать, указывается в задаче. Пример: В январе 2014 года клиент положил в банк 30000 рублей под 10% годовых, которые банк начисляет раз в год в декабре. Сколько рублей будет на счете у клиента в январе 2017 года? То, что банк начисляет на текущую сумму 10%, значит, что после начисления процентов сумма будет составлять 110% от суммы, находящейся на счете до начисления процентов. Составим таблицу: Г о д С у м м а н а с ч е т е д о н а ч и с л е н и я я н в а р ь С у м м а н а с ч е т е п о с л е н а ч и с л е н и я д е к а б р ь ГодСумма на счете до начисления %Сумма на счете после начисления %(январь)(декабрь)2014300001,1⋅3000020151,1⋅300001,12⋅3000020161,12⋅300001,13⋅30000 Таким образом, в декабре 2016 года после начисления процентов на счете у клиента будет 1,13⋅30000 рублей. Эта же сумма будет у него на счете и в январе 2017 года (т.к. проценты начисляются только в декабре). Значит, ответом будет 39930 рублей. Ознакомиться с полной теорией
Источник: https://shkolkovo.net/catalog/slozhnye_zadachi_prikladnogo_haraktera/pro_bankovskij_vklad
© shkolkovo.net
Пояснення: