var
i, b: integer;
begin
b := 0;
for i := 1 to 100 do
if (i mod 2 <> 0) then b := b + i;
writeln(b);
end.
А х вводится с клавиатуры или рандом,какие вообще параметры задатются? Может какие-то ограничения,так условие не совсем понятно
Ответ:
ответ 20путь есть.....из города А в город И
D Потому Что там мало молока