var a,b,c: integer;
begin
writeln('Введите значение а: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('Введите значение c: ');
readln(c);
writeln('a + b + c = ',a+b+c);
writeln('a * b * c = ',a*b*c);
end.
<span />
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<span>Var A:array[1..100] of integer;
i,n,k,s:integer;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
A[i]:=random(31)-15;
write(A[i]:4);
if A[i] mod 2 = 0 then
Begin
s:=s+A[i];
inc(k);
End;
End;
writeln;
writeln('Сумма чётных= ',s);
writeln('Кол-во чётрых= ',k);
readln;
End<span>.</span></span>
4, там через тире написано
истинность это верный/неверный?если так то верный
<span>Program Bob;
var z:integer;
begin
writeln('введи номер дня недели');
readln(z);
if z=1 then writeln('Понедельник')
else if z=2 then writeln('Вторник')
else if z=3 then writeln('Среда')
else if z=4 then writeln('Четверг')
else if z=5 then writeln('Пятница')
else if z=6 then writeln('Суббота')
else if z=7 then writeln('Воскресенье')
else writeln('нет такого дня недели');
readln;
end.
Пожалуйста :) ЫЫЫ</span>
C1, r1, c2, r2 = [int(x) for x in input().split()]
hasMove = c1 == c2 or r1 == r2 or abs(c1-c2) == abs(r1-r2)
print('YES' if hasMove else 'NO')
