Написать программу для решения уравнения ax=b на языке паскаль abc

Question

Информатика

Алексеич

20 мая, 09:18

Написать программу для решения уравнения ax=b на языке паскаль abc

+1

Ответы (1)

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

Полюха · Answer 1

Program Ur1;

Uses Crt;

var a, b, x:real;

begin

clrscr;

write ('Введите а>0:') ;

readln (a) ;

if (a=0) then a:=1; {чтобы избежать ошибки во время выполнения}

write ('Введите b:') ;

readln (b) ;

x:=b/a;

writeln ('x=', x) ;

readkey;

end.