Составить алгоритм решения с алгоритмического языка pascal и с блок-схем, используя конструкцию алгоритма с ветвлением. написать алгоритм решения , которая решает уравнение ax + b = 0 относительно x для любых чисел a и b, введенных с клавиатуры. все числа считаются действительными.

program qq;

uses crt;

var a,x,b: real;

begin

crlscr;

writeln('введите а и b ');

readn(a,b);

if a=0 then

if b=0 then writeln('x любое число')

else writeln('решений нет ')

else begin

x: =(-b/a);

writeln (x);

end;

readln

end.

 

 

сорри за то что все в куче

Private static int calculatedeposit(double start_sum, ref double end_sum, double percent)         {            debug.assert(percent > 0 & & start_sum > 0 & & end_sum > = start_sum);             var months = 0;             var sum = start_sum;             do             {                 months++;                 sum *= 1 + percent;               } while (sum < end_sum);             end_sum = sum;               return months;         }

1) var i,a: integer; begin a: = 1; while a< > 0 do begin read(a); i+=a; end; writeln(i=10); end. 2) можно через double. но после 170! уже бесконечность. var n: integer; var b: double; begin b: =1; read(n); for var i: = 1 to n do b*=i; writeln('factorial '+n+' = '+b); end. 3) работает как и с числами так и со строками. var arr: array of char; var a: string; var first,last: integer; begin read(a); arr: = a.tochararray(); for var i: = 0 to arr.length-1 do begin first: =pos(arr[i], a); last: =pos(arr[i], a,first+1); if (first> 0) and (last > 0) and (first< > last) then begin first: =99; break; end; end; if first = 99 then writeln('содержит. это число '+arr[last-1]) else writeln('несодержит.'); end.