Для решения этой задачи на Паскале воспользуемся следующим кодом:
program SumOfMultiplesOfThree; var n, sum, i: integer; begin sum := 0; write('Введите число n: '); readln(n); for i := 1 to n do begin if i mod 3 = 0 then sum := sum + i; end; writeln('Сумма натуральных чисел от 1 до ', n, ' кратных 3: ', sum); end.
Этот код позволяет находить сумму натуральных чисел от 1 до n, которые кратны 3. Пользователю необходимо ввести число n, а затем программа будет выполнять подсчет суммы чисел кратных 3.
Для решения этой задачи на Паскале воспользуемся следующим кодом:
program SumOfMultiplesOfThree;var
n, sum, i: integer;
begin
sum := 0;
write('Введите число n: ');
readln(n);
for i := 1 to n do
begin
if i mod 3 = 0 then
sum := sum + i;
end;
writeln('Сумма натуральных чисел от 1 до ', n, ' кратных 3: ', sum);
end.
Этот код позволяет находить сумму натуральных чисел от 1 до n, которые кратны 3. Пользователю необходимо ввести число n, а затем программа будет выполнять подсчет суммы чисел кратных 3.