Question

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

Answer 1

program qq;
var a,x:real;
begin 
read(a);
x:=5/a;
if a=0 then writeln('Корней нет') else writeln(x);
end.

Answer 2

ты настоящий пацан