Задание 15 Pascal Демоверсия ЕГЭ 2023 по информатике

#КЕГЭ #демоверсия2023

Разбираю решение задание 15 демоверсии 2023г по информатике на языке Pascal

Завершается набор на подготовку к ЕГЭ 2023
По вопросам пишите в личку
____________________________________
[phone] (Whatsapp, Viber, Telegram)
skype_filatov

[fed]

Интересное решение, спасибо. А я решал данную задачу так:
begin
for var a:= 1 to 100 do begin
var flag:= 0;
for var x:=1 to 100 do
if (((x mod 2 = 0) <= (x mod 3 <> 0)) or (x + a >= 100)) = False then begin
flag:=1;
break;
end;
if flag = 0 then println(A);
end;
end.