Задать вопрос
19 июля, 06:50

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающееся на 6. Программа получает на вход натуральные чисела и колличество введеных чисел не известно, в последовательность чисел заканчивается числом 0 (это признак окончания ввода, не входит в последовательность. Количество чисел не превышает 100. Введённые числа не превышают 300 Программа должна вывести одно число: сумму всех чисел кратных 6 и окончивающихся на 6.

+3
Ответы (1)
  1. 19 июля, 07:15
    0
    Var A, S:integer;

    Begin

    S:=0;

    Repeat

    Read (A) ;

    if (A mod 6 = 0) and (A mod 10 = 6) then S:=S+A;

    Until A = 0;

    Write (S)

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающееся на 6. Программа ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4.
Ответы (1)
1) Напишите программу, которая в последовательности натуральных чисел определяет сумму четырехзначных чисел, кратных 6.
Ответы (1)
1) Напишите программу которая в последствии натуральных чисел определяет, находит сумму двузначных чисел не кратных 4. В последовательности обязательно имеется двузначное число не кратное 4.
Ответы (1)
1) Напишите программу которая в последствии натуральных чисел определяет, есть ли в последовательности нечетные числа не оканчивающихся на 1. Вход: программа получает на выход кол-во чисел, а затем сами числа.
Ответы (2)
Помогите, плесс. на языке паскаля. напишите программу, которая в последовательности натуральных чисел определяет минимальное, оканчивающееся на 2. Программа получает числа. Признак окончания ввода 0. Количество чисел не превышает 1000.
Ответы (1)