Регистрация
Гуманитарий777
07.02.2021 23:52
Информатика
Есть ответ 👍

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

105
284
Посмотреть ответы 2

Ответы на вопрос:

MrLED
MrLED
4,5(49 оценок)

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.

 

 

 

   

 

 

 

 

 

 

 

 

 

DavidWorld
DavidWorld
4,8(4 оценок)
Const n=15; var a,b,c: array[0..n] of integer; s_a,s_b: string; i: integer; begin   readln(s_a);   readln(s_b);   while length(s_a)< n do s_a: ='0'+s_a;   while length(s_b)< n do s_b: ='0'+s_b;     for i : = n downto 1 do begin       a[i]: =strtoint(s_a[i]);       b[i]: =strtoint(s_b[i]);       c[i]: =c[i]+a[i] + b[i];       c[i-1]: =c[i] div 10;       c[i]: =c[i] mod 10;   end;   writeln;   for i: = 0 to n do write(a[i]);   writeln;   for i: = 0 to n do write(b[i]);   writeln;   for i: = 0 to n do write(c[i]); end.

Популярно: Информатика