Подправишь где надо, потом сохранишь как написал выше.
#26
(1+sqr(sin(x+y)))/(2+abs(x-2*x/(1+sqr(x*y)))+x
Ну, без высоты же не обойтись
var
a, b, h: <em>real</em>;
begin
readln(a, b, h);
writeln('S = ', (a * 0.5 + b / 2) * h);
<span>end.</span>
//Pascal ABC.NET 3.1 сборка 1219
Var
m,s,r:double;
begin
try
read(m,s);
r:=s+m*60;
writeln(r);
except
on System.OverflowException do writeln('Переполнение');
end;
end.
Пример ввода:
32345678903456787654324657865432456786543245687654356786543
3456754365786545678976543567865435678
Пример вывода:
1.94074073420741E+60