1) упрощаем логическое выражение
2) строим таблицу истинности
3 вариант ложь
Если сомневаетесь в своем решении, всегда можно открыть, например, эксель и быстренько себя проверить =)
Точка 100 200
начертите в право 4 клетки
начетите низ лево 1 клетку
начертите в лево 2 клетки
начертите вверх лево 1 клетку
дальше не знаю
var
s : integer;
begin
for var i := 0 to 1000 do if i mod 2 > 0 then s += i;
writeln('s=', s);
end.
var
n : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do write(i, ' ');
end.