Предмет: Информатика,
автор: Dalgerok1
5 вариант! решите пожалуйста с меня 100 баллов)
Приложения:
![](https://files.topotvet.com/i/db0/db0aab6075380005cffc844e9fb133ce.jpg)
Ответы
Автор ответа:
1
function f(a,b:real):real;
begin
if a<0 then f:=a*a+3*a-b else f:=b*b-3*b+a;
end;
var t,m,s:real;
begin
write('t = '); readln(t);
write('m = '); readln(m);
s:=sqr(f(2*t+m,t*m))+sqr(f(3*m,2*t));
writeln('S = ',s);
end.
Пример:
t = 2
m = 3
S = 794
begin
if a<0 then f:=a*a+3*a-b else f:=b*b-3*b+a;
end;
var t,m,s:real;
begin
write('t = '); readln(t);
write('m = '); readln(m);
s:=sqr(f(2*t+m,t*m))+sqr(f(3*m,2*t));
writeln('S = ',s);
end.
Пример:
t = 2
m = 3
S = 794
Похожие вопросы
Предмет: Английский язык,
автор: annabilokin11
Предмет: Музыка,
автор: nlera8745
Предмет: Математика,
автор: arinayakovenko2011
Предмет: Русский язык,
автор: galaninalecsandr07