Предмет: Информатика, автор: Rishat481

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

Ответы

Автор ответа: Privezenoff

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.

Автор ответа: Privezenoff

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.

Автор ответа: Privezenoff

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

Автор ответа: Livantsova29

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

Приложения: