Блог для маленьких школьников и их родителей
ШколаЛа

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

Автор:
Предмет: Информатика
Уровень: 10 - 11 класс

Составить программу на языке Паскаль, вычисляющую сумму всех чисел, кратных 3 на интервале от 1 до n. Применить цикл с заданным числом повторений.

Ответов к вопросу: 1
  • angelinaysinskay
    05.11.2024 | 18:38

    var
       i, n, sum: integer;

       

    begin
      sum := 0;
      read(n);
      for i := 1 to n do
        if i mod 3 = 0 then
          sum := sum + i;
       
      write(sum);
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.