Question

Найти сумму чисел, кратных 3 от 1 до 100. ПРОГРАММА ПАСКАЛЬ ABC.

Answer 1

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 прибавляем...

Answer 2

Begin
sum=0;
for i:=1 to 100 do
begin
if i mod 3=0 then
sum:=sum+i;
end;
end.

Answer 3

Вот пример программы на языке Pascal ABC, которая находит сумму всех чисел от 1 до 100, кратных 3:

pascalCopy code
program SumOfMultiples;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 1 to 100 do
  begin
    if i mod 3 = 0 then
      sum := sum + i;
  end;
  writeln('Сумма чисел, кратных 3, от 1 до 100: ', sum);
end.

Программа начинает с инициализации переменной sum (сумма) нулевым значением. Затем она использует цикл for, чтобы перебирать числа от 1 до 100. Внутри цикла с помощью оператора if проверяется, делится ли текущее число i на 3 без остатка (т.е. является ли оно кратным 3). Если это так, то значение числа прибавляется к переменной sum. В конце программы выводится найденная сумма.