Question

Как Найти сумму натуральных чисел от 1 до n кратных 3. На паскаль ABC.net

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

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

begin

 Range(3,ReadInteger('n='),3).Sum.Println

end.

Answer 2

Program apkar007;

var n,i,sum:integer;

 s:string;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(60) end;

 writeln;

 write('Введите N = ');readln(n);

 sum:=0;i:=3;

 while i<=n do

   begin

     sum:=sum+i;

     i:=i+3;

   end;  

 writeln('Сумма натуральных чисел от 1 до ',n,', кратных 3, равна ',sum);

end.

Answer 3

Для того чтобы найти сумму натуральных чисел от 1 до n, которые кратны 3, можно воспользоваться языком программирования Pascal ABC. Вот пример кода:

pascalCopy code
program SumOfMultiplesOfThree;

var
  n, i, sum: integer;

begin
  write('Введите значение n: ');
  readln(n);
  
  sum := 0;
  
  for i := 3 to n do
  begin
    if i mod 3 = 0 then
      sum := sum + i;
  end;
  
  writeln('Сумма натуральных чисел от 1 до ', n, ', кратных 3, равна: ', sum);
end.

Этот код позволит пользователю ввести значение n, после чего программа вычислит сумму всех натуральных чисел от 1 до n, которые делятся на 3 без остатка, и выведет результат на экран.