Он. Не чем не отличаются просто где или что то будет разное
Var i:integer; s:real;
begin
i:=1; s:=0;
while i<10 do
begin
i:=i+1;
s:=s+i/(i+1);
end;
writeln('s = ',s:6:4);
end.
Результат:
<span>s = 7.4801</span>
P-периметр, A-длина одной стороны, B-длина одной из двух других
P=2B+A
B=(P-A)/2
var p,a:real;
begin
read (p,a);
write ((p-a)/2);
end.
20,32 * 1200 = 24384 пикс ширина
20,32 * 1200 = 24384 пикс высота
24384 * 24384 * 32 бит / 8 / 1024 / 1024 / 1024 = 2,21 гигабайта