Var i:integer; n,k:real;
begin
n:=10;k:=10;
for i:=1 to 6 do
begin
n:=1.1*n;
k:=k+n;
end;
writeln(k:5:2);
end.
"Звенелки" "Будилки"
колокольчик будильник
звонок(дверной) настенные часы
колокол музыка у соседей))
треугольник(музыкальный) телефонный звонок
домофон петух
<em>VAR</em>
<em> a,b,c,d: LongInt;</em>
<em>BEGIN</em>
<em> Read(a,b,c,d);</em>
<em> </em>
<em> Write(a,'+',b,'+',c,'+',d,'=',a+b+c+d);</em>
<em>END.</em>
Сссссссссссссссссссссссссссссссссссссссссссс