Siotsam
6 год назад
Задание номер 2, СРОЧНО!!! СПАСИБО)
ОТВЕТЫ
Vasiliy
Jul 4, 2019
Var b,c,f:real;
begin
write(b = );
readln(b);
write(c = );
readln(c);
if cgt;=b
then f:=c*c-3*b
else f:=2*c+b*b;
writeln(f = ,f);
end.
Пример:
b = 5
c = 2
f = 29
begin
write(b = );
readln(b);
write(c = );
readln(c);
if cgt;=b
then f:=c*c-3*b
else f:=2*c+b*b;
writeln(f = ,f);
end.
Пример:
b = 5
c = 2
f = 29
102
