Главная » Напишите программу... сумму чисел, кратных 6...
11:16

Напишите программу... сумму чисел, кратных 6...


Картинка Напишите программу... сумму чисел, кратных 6... для мобильных телефонов

Задание:

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. 

Количество введенных чисел не превышает 100. Все числа не превышают 300.

 Программа должна вывести одно число: сумму чисел, кратных 6.

 Пример работы программы:

 Входные данные: 3, 12, 25, 6.

 Выходные данные: 18.

Решение:

Код программы на Паскале:

  1. Program nomer_2;
  2. Var a, i, n, S: integer;
  3. Begin
  4. Write('Vvedite n '); readln(n);
  5. S:=0;
  6. For i:=1 to n do
  7.   begin
  8.   read(a);
  9.   if (a mod 6 =0) then S:=S+a;
  10.   end;
  11. Writeln(S);
  12. End.

Ответ на вопрос Напишите программу... сумму чисел, кратных 6...

Похожие материалы:
Нашли ошибку на сайте? Напишите в комментариях!
Категория: Язык программирования: Паскаль | Просмотров: 186 | Добавил: Ученик | Рейтинг: 5.0/1