Var
a,b,h,s:real;
begin
readln(a,b); // нижнее, верхнее основание
readln(h); // высота
s:=((a+b)/2)*h;
writeln(s);
end.
Мой ответ могут удалить, но там сто проц 5
5)ложь
Первым действием,что 7950:3=2650 байта на одну страницу...
Существует несколько вариантов юникода: в UTF-32 используется 4 байта на символ, в UTF-16 - 2 байта, в UTF-8 разные символы кодируются разным числом байтов.
Так что в зависимости от того, что твой преподаватель считает юникодом, может быть 2 ответа:
UTF-16: 2650/2/25=53 строки
<span>UTF-32: 2650/4/25=26.5 строк</span>
Var s:real; i,n:integer;
begin
write('n=');read(n);
for i:=1 to n do
s:=s+i/(i+1);
writeln('s=',s:4:2);
<span>end.</span>