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

Question

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

---

Comments

составить программу высисляющую 1/(a-b) и выдающего ответ ,, не верен ввод '' в случае неправильности вода

---

на каком языке?

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.