ты правильно ответил, С правильный
1.
uses crt;
var x,y,z:integer;
begin
write('x:'); readln(x);
write('y:'); readln(y);
write('z:'); readln(z);
write('x*y*z=',x*y*z);
<span>end.
2.
uses crt;
var x:integer;
begin
write('Введите число:'); readln(x);
if x mod 7=0 then writeln('YES')
else writeln('NO');
<span>end.
3.
uses crt;
var n,x,sum:integer;
begin
write('N:'); readln(n);
sum:=0;
for x:=1 to N do
sum:=sum+x;
write(sum);
<span>end.</span></span></span>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№52</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= 3 then F := x * x - 3 * x + 9
else F := 1 / (x * x * x + 6);
Print(F)
end.
<h2>№54</h2>
begin
var x := ReadReal('x =');
var F: real;
if x <= -3 then F := 9
else F := 1 / (x * x + 1);
Print(F)
end.
128=7 бит
7*145=1015 бит
1015/8=126 байт
Вроде так
Using System;
public class Test
{
public static void Main()
{
Console.Write("Введите координату х исходной точки (1-8): ");
int x1=Convert.ToInt32(Console.ReadLine());
Console.Write("Введите координату y исходной точки (1-8): ");
int y1=Convert.ToInt32(Console.ReadLine());
Console.Write("Введите координату х нужной точки (1-8): ");
int x=Convert.ToInt32(Console.ReadLine());
Console.Write("Введите координату y нужной точки (1-8): ");
int y=Convert.ToInt32(Console.ReadLine());
bool r=(Math.Abs(x-x1)*Math.Abs(y-y1)==2) &&
(x>0) && (x1>0) && (x<9) && (x1<9) &&
(y>0) && (y1>0) && (y<9) && (y1<9);
Console.WriteLine(r);
}
}
<u>Непосредственно условие:</u>
(Math.Abs(x-x1)*Math.Abs(y-y1)==2) &&
(x>0) && (x1>0) && (x<9) && (x1<9) &&
(y>0) && (y1>0) && (y<9) && (y1<9)