CДАВАТЬ УЖЕ СЕГОДНЯ,ПОМОГИТЕ!!! Найти сумму чисел, кратных 3 из диапазона от 1 до n. Тема Цикл. Через While! Напишите решение полностью! Заранее спасибо)

Вопрос школьника по предмету Информатика

CДАВАТЬ УЖЕ СЕГОДНЯ,ПОМОГИТЕ!!!
Найти сумму чисел, кратных 3 из диапазона от 1 до n. Тема Цикл. Через While! Напишите решение полностью! Заранее спасибо)

Ответ учителя по предмету Информатика

Ответ:

program FlexVeka;

var i,s,n,m:integer;

begin

readln(n);

i:=0; s:=0; m:=0;

while i<n do begin

s:=s+1;

if s mod 3=0 then

m:=m+s;

i:=i+1;

end;

writeln (‘Сумма чисел кратных 3=’,m);

end.

Объяснение: