Cererin
5 год назад
составьте, пожалуйста, программу в Pascal
ОТВЕТЫ
Гено
Oct 24, 2020
var
a,b: real;
begin
write('Vvedite kateti a, b: ');
readln(a,b);
writeln('P = ',a + b + sqrt(a*a+b*b):0:2);
readln;
end.
a,b: real;
begin
write('Vvedite kateti a, b: ');
readln(a,b);
writeln('P = ',a + b + sqrt(a*a+b*b):0:2);
readln;
end.
266
Смежные вопросы:
