Question

Вычислить сумму чисел от 1 до 100 которые делятся на 3 написать программу для вычисления(паскаль)

Answer 1

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 3.Step(3).TakeWhile(t -> t <= 100).Sum.Println

end.

1683

Answer 2

2 варианта

var s,i: integer;

begin

s:=0;

i:=3;

while (i<100) do

begin

s:=s+i;

inc(i,3);

end;

writeln('Сумма чисел, которые делятся на 3: ',s);

readln;

end.

___________________________________________________

var s,i: integer;

begin

s:=0;

for i:=1 to 100 do if (i mod 3 = 0) then s:=s+i;

writeln('Сумма чисел, которые делятся на 3: ',s);

readln;

end.

Выбирайте на свой вкус

Answer 3

Для вычисления суммы чисел от 1 до 100, которые делятся на 3, можно использовать язык программирования Pascal (Delphi). Вот пример программы, которая решает эту задачу:

pascalCopy code
program SumDivisibleBy3;

var
  num, sum: integer;

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

  writeln('Сумма чисел от 1 до 100, которые делятся на 3, равна: ', sum);
end.

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