Написать программу ** паскале С=корень а в квадрате + b в квадрате

Question

Написать программу на паскале
С=корень а в квадрате + b в квадрате

Answer 1

Varc,a,b : real;beginwriteln('введите длину а.');readln(a);writeln('Введите длину b.');readln(b);c:= sqrt(sqr(a)+sqr(b));if c>0 thenwriteln ('С = ',c)else writeln('Такого С не существует.');end.

Comments

var
c,a,b : real;
begin
writeln('введите длину а.');
readln(a);
writeln('Введите длину b.');
readln(b);
c:= sqrt(sqr(a)+sqr(b));
if c>0 then
writeln ('С = ',c)
else
writeln('Такого С не существует.');
end.

---

Отправил в комментарии,чтобы скопировал нормально по строкам(Программа рабочая,проверил в компиляторе)

Answer 2

Алгоритм ветвление, поэтому должно быть верно.

---