Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Решение во вложенном файле
Вариант 2.
подставляем: 2>2(нет,значит ложно - пишем 0)
2>5(нет,ложно - 0)
0V0=0
2<3(истинно - 1)
0----->1 = 1(Истинно)
обратите внимание на таблицы конъюнкции,дизъюнкции и следстия
//////////////////////////////////////////