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

Ответы 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.

     

     

     

      

     

     

     

     

     

     

     

     

     

    • Автор:

      irenecw9x
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years