Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
Длинна символа в кодировке <span>Windows-1251 составляет 1 байт.
В 1kB - 1024B.
Таким образом будет 1536/1024 = 1,5kB </span>
ответ 5. решается легко, просто складываем координаты по X и Y, приравниваем нулю, так как исполнитель вернулся в исходную точку.
Перезапусти комп и все норм
если конечно ты не скачал вирусов
//PascalABC.NET
//Переменная m - множитель, когда встретится
// четное число, m станет равным нулю
begin
var n := ReadInteger('n =');
var m := 1;
var sum := 0;
for var i := 1 to n do
begin
var number := ReadInteger;
m *= number mod 2;
count += m * number
end;
write(sum)
end.