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

Question

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

Comments

Взять первое, кратное 3 - это само 3. И пройти от него до n с шагом 3, суммируя полученные числа.

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

   begin

     sum:=sum+i;

     i:=i+3;

   end;  

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

end.