Найти сумму чисел, кратных 3 от 1 до 100. ПРОГРАММА ПАСКАЛЬ ABC.
Найти сумму чисел, кратных 3 от 1 до 100.
ПРОГРАММА ПАСКАЛЬ ABC.
Гость
Ответ(ы) на вопрос:
Гостьbegin
sum=0;
for i:=1 to 100 do
begin
if i mod 3=0 then
sum:=sum+i;
end;
end.
Гостьvar
n,s:integer;
begin
n:=3; s:=0;
while n<=100 do begin
s:=s+n;
n:=n+3
end;
Writeln('S=',s)
end.
Результат
S=1683
Первое число, кратное 3 - это само число 3. А дальше просто по 3 прибавляем...
Не нашли ответ?
Похожие вопросы