Program gt;
var x,y,s:real;
n:longint;
begin
read(x,y);
read(n);
s:=n*y+x;
writeln(s);
end.
2)program gt;
var z,y:real;
n,h:longint;
begin
read(z,y);
{y-расстояние между столбами}
read(n);
h:=round((n*z/y));
if(h>(n*z/y))then h:=h-1;
writeln(h);
end.
Var k,a,b:integer;
begin
read(k);
b:=k div 3600;
if b>0 then k:=k mod 3600;
a:=k div 60;
if a>0 then k:=k mod 60;
writeln(b,':',a,':',k);
end.
<span>что вечно тормозит и тупит?</span>
Переведём Кбайт в бит.
6 Кбайт = 6 * 1024 * 8 = 49152 бита
1 символ занимает 16 бит.
49152 / 16 = 3072
Ответ: 3072 символа
<u>Порядок выполнения решений:</u>
<em>1) Раскрываются скобки.</em>
<em>2) Умножения и деления.</em>
<em>3) Плюсы и минусы.</em>
1) a:=-(2+3*(10-7)) = -(2+3*3) = - 11
2) b:=(22/a)*(33/a) = (22/(- 11))*(33/(- 11)) = (-2)*(-3) = 6
3) b:=b/2 = 6/2 = 3