Предмет: Информатика,
автор: FlexVeka
CДАВАТЬ УЖЕ СЕГОДНЯ,ПОМОГИТЕ!!!
Найти сумму чисел, кратных 3 из диапазона от 1 до n. Тема Цикл. Через While! Напишите решение полностью! Заранее спасибо)
mesmerizingbutterfly:
Язык? Числа из массива или простой диапазон от 1 до n?
Язык Pascal,простой диапазон от 1 до n.
Ответы
Автор ответа:
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.
Объяснение:
давай попробую, какое условие?
Я не совсем в этом шарю,а в самом задание про условие нет ничего(
В смысле, у тебя же не написано "Напишите любую программу используя цикл Do Until и While"
Окей,просто скопирую задание
Вычислить и вывести сумму целых чисел, кратных 3, в интервале от 1 до n:
1.1. цикл «ДО»
1.2. цикл «ПОКА»
1.3. цикл «ДЛЯ»
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.
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 цикл прекращается
понял,спасибо)всё работает,как часы)
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: Kapetoshka
Предмет: Русский язык,
автор: karinochaiIaIo
Предмет: Геометрия,
автор: sleta1998A