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

1

Ответы и объяснения

2013-03-10T19:48:12+04:00

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.