1. Информатика
  2. Напишите программу которая

Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 0.программа получает на вход натуральные числа, количество введеных чисел неизвестно,последовательность чисел заканчивается числом 0 (0-признак окончания ввода,не входит в последовательность)

timurtim1 timurtim1    1   06.08.2019 06:20    0

Ответы
manukansona manukansona  04.10.2020 00:35
Var
    n, s: integer;

begin
    s := 0;
    repeat
        readln(n);
        if n mod 3 = 0 then s := s + n;
    until n = 0;
    writeln(s)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
gushagusha gushagusha  08.04.2021 19:47
Створіть проект, у якому можна буде обчислити значеня функції y={15-3x, якщо -1 меньше х меньше 4, { 6+4х, для всіх інших х....
ЛеркаXD ЛеркаXD  12.11.2020 07:37
Создайте алгоритм действий По сылке...
asdf37 asdf37  12.11.2020 07:24
1) переведите на язык алгебры логики следующие высказывания: неверно, что если погода пасмурная то дождь идет только тогда, когда нет ветра. 2) переведите на язык алгебры логики следующие...
annaphilatovp06jxq annaphilatovp06jxq  28.09.2019 16:50
3. запишите числа 158 и 1879 в развернутой форме. 4. найдите числа, которые записаны неправильно: 456(8), 102(2), 365(12), 578(8), 172(9), 521(4). как вы рассуждали? 5. найдите в...
ната5810 ната5810  28.09.2019 16:50
Значение степеней 2,от 2 в 0 степени до 2 в 12 степени , умоляю...
Muzahabiba Muzahabiba  20.08.2019 12:30
Назначение операторов and, or, clrscr в паскале?...
yanaerasova017 yanaerasova017  20.08.2019 12:30
1.команды предварительного просмотра находятся: а в меню кнопки paint в в группе печать вкладки главная с в главном меню windows d в группе печать вкладки вид 2. в окне предварительный...
dmitrylazar1 dmitrylazar1  20.08.2019 12:30
Что такое редактирование, форматирование , и разница между ними...
Mariyam005 Mariyam005  07.05.2020 08:46
1 3х+4у=10 и 4х+ 3у=5 2. 3−=4 и 3+1=8 3. {7+=20 и −5=8 Решить систему уравнений сложения...
Miratrix Miratrix  07.05.2020 08:46
1.Близ какого города Италии в 73-71 годах до н.э. произошло крупнейшее в древности восстание рабов? * 2.Как звали раба, фракийца по происхождению, который возглавил это восстание...

Популярные вопросы