Question

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

Answer 1

Ответ:

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.

Объяснение:

Answer 2

заменяешь строчку while на repeat убираешь end; вместо него ставишь until i=n