На сколько я знаю, надо просто все перемножить
<span>var
a,b,s,i:integer;
begin
assign(input,'путь к документы');
reset(input);
assign(output,'output.txt');
rewrite(output)
readln('vvedite menshee chislo');
readln(a);
readln('vvedite bolshee chislo');
readln(b);
for i:=a to b do
s:=s+i*i;
writeln(s);
readln;
end<span>.</span></span>
Var a,b,c,p,s:real;
begin
write ('Введите длину стороны a: ');
readln (a);
write ('Введите длину стороны b: ');
readln (b);
write ('Введите длину стороны c: ');
readln (c);
p:=(a+b+c)/2;
s:=SQRT(p*((p-a)*(p-b)*(p-c)));
writeln ('Площадь = ',s);
end.
nfv jxtym vjyjju udctuj nfv djj,ot ljdbuf ltjkdf ghjcnb ,hfnfy
<span><span>1. Наполнить 7-литровый кувшин</span>
<span>2. Перелить из <span><span>7-литрового кувшина в </span></span><span><span>2-литровый</span></span> 2 литра.</span>
<span>3. Вылить воду из <span><span><span><span>2-литрового</span></span></span></span> кувшина в колодец. </span>
<span>4. Повторить пункты 2 и 3.</span>
<span>Результат: 3 литра воды в <span><span><span><span>7-литровом кувшине (7-2-2=3).</span></span></span></span>
</span></span>