3 компания. Так как там до B 3
Program gt;
var a,b,p:real;
i:integer;
begin
a:=10000;
p:=7.4;
for i:=1 to 8 do
begin
a:=a+a*p/100;
end;
writeln(a);
<span>end.</span>
Дисковод - это устройство для считывания дисков (не давно отвечал на другой вопрос по этому на этот отвечать можно будет через 40 сек. ждём )
Var a,b:integer;
Begin
a:=1;
b:=2;
While a + b < 10do
Begin
a:=a+2;
b:=b+1
End;
a:=a*2;
b:=b*10;
WriteLn('a = ',a,' b = ',b)
End.