Program old;
var
s: real;
y: integer;
begin
s:=20;
y:=1626;
writeln('Сейчас 1626 год и я положил в банк: ', s);
while y<2003 do
begin
s:=(s+(s*0.04));
y:=(y+1);
writeln(s,'$ В банке на ', y, ' год');
end;
end.
Итого: 52795743.6290571$ В банке на 2003 год
Если в первой задаче тип --- цна аренды за час, то вот ваша первая задача:
#include <cstdio>
#include <iostream>
using namespace std;
int main()
{<span>
int tip, kolvo;//tip - тип автомобиля, kolvo -количество часов
</span><span> scanf("%d %d", &kolvo, &tip);
</span><span> printf("%d", kolvo*tip);</span><span>
return 0;
</span><span>}</span>
Var sm, kg:integer;
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.
Var
hay:longint; { количество стогов сена }
eaten:longint; { количество съеденных стогов }
procedure Eat(var n:longint);
{ съесть 4 стога }
begin n:=n-4; eaten:=eaten+4 end;
procedure Sheep(n:longint);
{ овечка, которой передано n стогов сена }
begin
if n>=4 then begin
if (n mod 5)=0 then begin
n:=n div 5;
Sheep(n);
Sheep(3*n)
end
else begin
Eat(n);
Sheep(n)
end
end
end;
begin
Readln(hay);
eaten:=0;
Sheep(hay);
Writeln(eaten)
end.
<em><u>Тестовое решение:</u></em>
29
8
На каждой итерации цикла m уменьшается на 2, и это продолжается до тех пор, пока m не станет меньше 6. Так как изначально m = 15, то потребуется пять итераций, в итоге m будет равно 15 - 2*5 = 5.
На каждой итерации n увеличивается вдвое, всего итераций 5, значит, после выполнения фрагмента алгоритма n будет равно 1 * 2^5 = 32.
Ответ. m = 5, n = 32.