Составьте программу которая по заданному a исследует корни управления ax-5=0 и выводит на экран значения вычесленного корня либо сообщения ''Корней нет''

Question

Феодосия

9 ноября, 03:52

+1

Ответы (1)

Знаете ответ на вопрос?

Лебния · Answer 1

Program qq;

var a, x:real;

begin

read (a) ;

x:=5/a;

if a=0 then writeln ('Корней нет') else writeln (x) ;

end.