Var i,N1,N2,M,j:integer;
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;<span>end.</span>
Объяснение:
Должен создать 4 переменные для каждого числа.
YES будет высвечиваться в том случае, если: a = d, b = c.
NO будет высвечиваться в остальных случаях.
(Пишу на других языках, но тут через конструкцию if esle делай)
История автомобильного завода ЗиЛ.
Описание какой-нибудь области.
Первый полёт в космос.
const
n=10;
var
a:array [1..n] of real;
z,i,k:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');readln(a[i]);
end;
write ('Z = ');readln(z);
for i:=1 to n do
if a[i]>z then begin
a[i]:=z;
k:=k+1;
end;
for i:=1 to n do
if frac(a[i])=0 then write (a[i]:0:0,' ') else write (a[i]:0:1,' ');
writeln ('Kol-vo zamen: ',k);
readln;
end.
Program gt;
var x1,x2,y1,y2:integer;
begin
readln(x1,y1,x2,y2);
if ((abs(x1-x2)<=1)and(abs(y1-y2)<=1))then writeln('YES')else
writeln('NO');
end.