Никита
5 год назад
Пожалуйста посчитайте ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!!
ОТВЕТЫ
Zahar
Oct 24, 2020
var a, b,c, d :real;
begin
readln(a);
readln(b);
readln(c);
if a*a+b*b:=c*c then
begin
d:=a+b+c;
writeln(d);
end
else
begin
d:=a*b*c;
end
end.
begin
readln(a);
readln(b);
readln(c);
if a*a+b*b:=c*c then
begin
d:=a+b+c;
writeln(d);
end
else
begin
d:=a*b*c;
end
end.
71
Смежные вопросы:
