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

Ответы 1

  • Var   n,S,S3:integer;BeginWrite('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.
    • Автор:

      abbyj6p4
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years