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

Question

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

Comments

Язык? Числа из массива или простой диапазон от 1 до n?

---

Язык Pascal,простой диапазон от 1 до n.

Answer 1

Ответ:

program FlexVeka;

var i,s,n,m:integer;

begin

readln(n);

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

while i

s:=s+1;

if s mod 3=0 then

m:=m+s;

i:=i+1;

end;

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

end.

Объяснение:

Comments

давай попробую, какое условие?

---

Я не совсем в этом шарю,а в самом задание про условие нет ничего(

---

В смысле, у тебя же не написано "Напишите любую программу используя цикл Do Until и While"

---

Окей,просто скопирую задание

---

Вычислить и вывести сумму целых чисел, кратных 3, в интервале от 1 до n:
1.1. цикл «ДО»
1.2. цикл «ПОКА»
1.3. цикл «ДЛЯ»

---

1.1 заменяешь while на for i:=1 to n do begin и убираешь I:=i+1;

---

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

---

вот так? begin
readln(n);
i:=0; s:=0; m:=0;
repeat
s:=s+1;
if s mod 3=0 then
m:=m+s;
i:=i+1;
until 1=n;
writeln ('Сумма чисел кратных 3=',m);
end.

---

не 1, а i. i-счётчик, идёт вместе с циклом, как только мы дойдём до последнего элемента равного n цикл прекращается

---

понял,спасибо)всё работает,как часы)