Question

Решите плиз программирование 7 класс

Answer 1

program prog;
uses crt;

var  a,b,s: real;

begin
clrscr;
 write('a = ');
 readln(a);
  write('b = ');
 readln(b);

writeln;
if (a-b) <> 0 then begin
   s:=1/(a-b);
   writeln('1/(',a,'-',b,')=',s:0:3);
   end
else
    writeln('Не верен ввод');
    end.