Найдите ошибку(и) в данной программе и запишите исправленную(ые) строку(и) в ответ. progaram primer; var a, x: real; write ‘введите число’; read x; if x< > o tnen a = x*x esle a=3x; write ‘ответ ’, а end.

Program primer; var a,x: real; begin write ('введите число '); read (x); if x< > 0 then a: = x*x else a: =3*x; write ('ответ ', a) end.var a, b, x: real; begina: =5; write ('введите число'); read (x); if x> 0 then b: = x*x; write ('ответ=', a); end.

// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! №1 begin   var s: =readinteger.tostring;   if s=s.distinct.sorted.joinintostring('') then       writeln('цифры являются возрастающей последовательностью')   else       writeln('цифры не являются возрастающей последовательностью') end. примеры 148 цифры являются возрастающей последовательностью 355 цифры не являются возрастающей последовательностью №2 begin   var x,y: real;   write('введите координаты точки: '); read(x,y);   if x*y=0 then writeln('нули вводить не допускается')   else       if x*y> 0 then           if x> 0 then writeln('i четверть')           else writeln('iii четверть')       else           if x> 0 then writeln('iv четверть')           else writeln('ii четверть') end. пример введите координаты точки: -2 -3.2 iii четверть

1) program n1; var n: integer; begin write('введите 3-х значное число: '); readln(n); if ((n div 100 < n div 10 mod 10) and (n div 10 mod 10 < n mod 10)) then writeln('true') else writeln('false'); end. 2) program n2; var x,y: real; begin readln(x,y); if(x=0) and (y=0) then writeln('точка в начале координат') else if(x> 0)and(y> 0) then writeln('i четверть') else if(x< 0)and(y> 0) then writeln('ii четверть') else if(x< 0)and(y< 0) then writeln('iii четверть') else if(x> 0)and(y< 0) then writeln('iv четверть') else if(x=0)and(y< > 0) then writeln('точка на оси oy') else if(x< > 0)and(y=0) then writeln('точка на оси ox'); end.