K=float(input())
p=float(input())
s=float(input())
k=k*(1+p/100)
print(int(s/k)
<span>program
HelloWorld;</span>
var x,i
:integer;
begin
x := 0; // количество желаний
i := 0; // года совместной жизни
while(x < 33) do
<span> begin</span>
<span> i := i+1;</span>
<span> if i mod 3 = 0 then </span>
<span> begin</span>
<span> x:= x + 2*3</span>
<span> end</span>
<span> else </span>
<span> begin</span>
<span> x:= x + 3</span>
<span> end;</span>
<span> write('Год: ');</span>
<span> write(i);</span>
<span> write</span>(' кол-во желаний: ');
write(x);
<span> writeln('');</span>
<span> end;</span>
end.
Ответ: 9 лет
Ответ:
36910 - вези
Объяснение:
нет 36 буквы алфавита , нет 69 буквы алфавита , нет 91 буквы алфавита, нет 0 буквы алфавита
//Это человечек в профиль.
//Pascal ABC.NET v3.1 сборка 1172
Uses
GraphABC;
Var
i:integer;
begin
maximizewindow;
for i:=100 to 500 do
begin
clearwindow();
setbrushcolor(clGold);
circle(i,i,10);
circle(i,i+30,6);
circle(i,i+65,6);
setbrushcolor(clgray);
ellipse(i-15,i+10,i+15,i+60);
setbrushcolor(clGold);
circle(i,i+30,6);
sleep(40);
end;
end.