Условие: (x % 4 == 0 and x % 100 != 0) or x % 400 == 0
Рассмотрим скобку x % 4 == 0 and x % 100 != 0:
x % 4 == 0 — число делится на 4 без остатка, т.е. кратно 4-мx % 100 != 0 — число не делится на 100 без остатка, т.е. не кратно 100and говорит о том, что обязательно должны выполняться оба этих условия: число должно быть кратно 4-м И не кратно 100
Вторая часть условия:
x % 400 == 0 — число делится на 400 без остатка, т.е. кратно 400or говорит о том, что либо выполняется условие в скобке, либо то, которое идет после or:
число должно быть кратно 4-м И не кратно 100, ИЛИ число должно быть кратно 400
Пример чисел, которые удовлетворяют условию:
0
4
8
12
128
400
1600
Например, 200 не подойдет:
200 % 4 == 0 — да
200 % 100 != 0 — нет
200 % 400 == 0 — нет
(да И нет) ИЛИ нет = нет ИЛИ нет = нет
var a,b,c,d,res: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
write('Введите d: ');
readln(d);
res := a;
// Проверяем число b
if (b mod 10 > res mod 10) then res:=b
else if (b mod 10 = res mod 10) then
begin
if (res<b) then res:=b;
end;
// Проверяем число c
if (c mod 10 > res mod 10) then res:=c
else if (c mod 10 = res mod 10) then
begin
if (res<c) then res:=c;
end;
// Проверяем число d
if (d mod 10 > res mod 10) then res:=d
else if (d mod 10 = res mod 10) then
begin
if (res<d) then res:=d;
end;
writeln('Число с наибольшей последней цифрой: ',res);
end.
