Введите с клавиатуры целочисленные координаты точки на плоскости (x, y выведите '0' , если точка совпадает с началом координат, '1', если точка лежит на координатных осях, и '2', если точка не лежит на координатных осях.

Var x,y: real; begin writeln ('введите координаты точки (x,y)'); readln (x,y); if (x=0) and (y=0) then writeln ('0') else if (x=0) or (y=0) then writeln ('1') else writeln ('2'); end.

Var   a: array of byte; //мы ведь не хотим выйти за пределы даже  int64?   n, i: byte;           //больше и не пригодится, массива из 255 значений хватит уж   l: int64 : = 1;       //произведение - большая цыферка begin   readln(n);   system.array.resize(a, n);   for i : = 0 to (n - 1) do   begin     write('a[', i, '] = ');     readln(a[i]);     l *= a[i];   end;   writeln(l); end.

Using system; namespace consoleapp {       internal class program {             private static void main() {                   var number = 0;                   int n;                   do {                         console.writeline("введите число");                         n = convert.toint32(console.;                         if (n ! = 0 & & (n % 5 == 0 || n % 7 == 0)) {                               number++;                         }                   } while (n ! = 0);                   console.writeline("кол-во = " + number);                   console.readkey();             }       } }