Вот в придложенном файле работающая программа, только я пока не догнал как ее коруглить, чтобы в ответе не было число + куча нолей в степени Е+00, а было просто числа например 2.5 или 3,7 или просто 5 или 7
Program chik;
var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
if(i mod 2=0)then s:=s+i;
writeln(s);
end.
<span>
</span>
Изначально i = 4
Проверяем 4<10? Да, значит прибавляем 3 и получаем 7.
Проверяем 7<10? Да, значит прибавляем 3 и получаем 10.
Проверяем 10<10? Нет, значит цикл больше не выполняется.
Ответ: Тело цикла выполнится два раза