Вычислить y=1/x если при x=0 решений нет

Var y,x: real;

begin
readln(x);
if x=0 then writeln('решений нет')
else begin
y:=1/x;
writeln(y)
end;
end.

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
if x=0 then write('нет решений') else write(1/x);
end.

Веб-программирование — раздел программирования, ориентированный на разработку веб-приложений. Языки веб-программирования — это языки, которые в основном предназначены для работы с веб-технологиями. Языки веб-программирования можно условно разделить на две пересекающиеся группы: клиентские и серверные.

HTML — стандартизированный язык разметки документов во Всемирной паутине. Большинство веб-страниц содержат описание разметки на языке HTML. Язык HTML интерпретируется браузерами;

Объяснение:

надеюсь вам

const

 n=5;

 m=5;

var

 a:array [1..n,1..m] of integer;

 i,j,k,t:integer;

begin

 writeln('Исходная матрица:');

 for i:=1 to n do

 begin

   for j:=1 to m do

   begin

     a[i,j]:=random(8)-4;

     write(a[i,j]:2,' ')

   end;

   writeln

 end;

 for i:=1 to n do

   for j:=1 to m-1 do

     for k:=j+1 to m do

       if a[i,j]>a[i,k] then

       begin

         t:=a[i,j];

         a[i,j]:=a[i,k];

         a[i,k]:=t

       end;

 

 writeln('Полученная матрица:');

 for i:=1 to n do

 begin

   for j:=1 to m do

     write(a[i,j]:2,' ');

   writeln

 end;

end.