Напишите программу в pascal abc

Для первых n натуральных чисел вычислить сумму чисел, кратных 3 и сумму всех чисел.

Question

Информатика

Гурий

2 ноября, 13:46

Напишите программу в pascal abc

Для первых n натуральных чисел вычислить сумму чисел, кратных 3 и сумму всех чисел.

+5

Ответы (1)

Знаете ответ на вопрос?

Дорофей · Answer 1

Var

n, S, S3:integer;

Begin

Write ('n = ') ;

ReadLn (n) ;

For n: = 1 to n do

Begin

S:=S+n;

if n mod 3 = 0 then S3:=S3+n;

End;

WriteLn ('Сумма чисел [1 ... ', n,'], кратных трём: ', S3) ;

WriteLn ('Сумма всех чисел [1 ... ', n,']: ', S) ;

End.

Напишите программу в pascal abcДля первых n натуральных чисел вычислить сумму чисел, кратных 3 и сумму всех чисел.

Напишите программу в pascal abc

Для первых n натуральных чисел вычислить сумму чисел, кратных 3 и сумму всех чисел.