Записать, как програму в паскале дана последовательность чисел, оканчивающихся нулем.найти произведение чисел, оканчивающихся цифрой 5.

Var   x, p: longint; begin   writeln('вводите через пробел натуральные числа, 0 - конец ввода');   p : = 1;   repeat       read(x);       if x < > 0 then           if (x mod 5) = 0 then p : = p * x   until x = 0;   writeln('произведение чисел, оканчивающихся цифрой 5, равно ', p) end. тестовое решение: вводите через пробел натуральные числа, 0 - конец ввода 3 4 15 7 25 2 5 0 произведение чисел, оканчивающихся цифрой 5, равно 1875

Public static int a (int n) {return n/100; }public  static  int  b(int  n)  {          return(n  /  10)  %  10;       }          public  static  int  c(int  n)  {          return  n%10;       }  public  static  void  main(string[]  args)  {int n = //ініціалізаціяsystem.out.println(a(n) + " " + b(n) + " " + c(n)); }

Как бы написал я: program n_1; var x1, x2, y1, y2, x, y: integer; begin writeln ('введите значения координат(x1,x2,y1,y2,x,y): '); readln (x1, x2, y1, y2, x, y); if (x> x1) and (x< x2) and (y> y2) and (y< y1) then writeln('точка с координатами (',x,'; ',y,') пренадлежит прямоугольнику')       else writeln('точка с координатами (',x,'; ',y,') не пренадлежит прямоугольнику'); end. булевой переменной не нужно, она же 1 раз используется. далее, ошибка была   (x< 2) нужно было ну или если только без ошибки, то вот: program n_1; var x1, x2, y1, y2, x, y: integer; a: boolean; begin writeln ('введите значения координат'); readln (x1, x2, y1, y2, x, y); a: = (x> x1)and(x< x2)and(y> y2)and(y< y1); writeln ('точка с координатами принадлежит прямоугольнику ', a); end.