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

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 4 и оканчивающихся на 8. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число: сумму всех чисел, кратных 4 и оканчивающихся на 8.

BlackPupils BlackPupils    2   23.06.2019 04:50    2

Ответы
logvlad9 logvlad9  19.07.2020 07:00
Begin
var count := 0;
var sum := 0;
while True do
begin
var a := ReadInteger;
Assert(a <= 300);
count += 1;
Assert(count <= 100);
if a = 0 then
break;
if (a mod 4 = 0) and (a mod 10 = 8) then
sum += a;
end;
Writeln('Сумма чисел по предикату равна ', sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sacredand sacredand  19.01.2021 11:31
Практичні завдання Заповнити таблицю без використання IDLE.Вхідні дані (а) | Тип даних (а) | Результат(b)Тип даних (b)stringfloatintКонструкціяпереведенняb=int(a)a=float...
iliasnurdos iliasnurdos  19.01.2021 11:31
1.Что такое логика?. 2 Основной системой счисления в компьютере является? .3. Логическое высказывание это -4. Простое высказывание – это 5.Составное высказывание —...
2polina21 2polina21  19.01.2021 11:32
информатика, дәптерге математикалық өртектер қүрастырып ееліңдер.Алынған нәтежелеріңді Python тілінде тексеріңдер ​...
Jdhcb Jdhcb  10.03.2021 10:17
СЕГОДНЯ НУЖНО СДАТЬ ДО 18:00 Построить трассировочную таблицу для алгоритма «Нахождения большего числа из двух данных чисел». Если A B, то С=A-B, иначе С=A+B. Например,...
аннасерб аннасерб  10.03.2021 10:16
1. Які існують типи запитів на змінення? 2. Як запит на вибірку перетворюється в запит на створення таблиці? 3. Як запит на вибірку перетворюється в запит на додавання?...
Dimon2005Dima Dimon2005Dima  10.03.2021 10:16
Учитывая начало и конец программы, найдите тело. Program paralli; Var p,s:integer; h:real; Begin read(p,s); ……………. Write(h); End. ;​...
lglglglgl lglglglgl  17.04.2020 16:21
Что это такое? (FF80::123:1234:ABCD:EF12/48)...
орех15 орех15  26.09.2019 17:40
Дан двумерный массив a(m,n). получить линейный массив b(n) ,в котором b(i)- сумма элементов i-го столбца массива a(m,n), при i, изменяющимся от 1 до m. числа m, n...
bratdrug27p09mj2 bratdrug27p09mj2  26.09.2019 17:40
Разработать программу для вычисления произведения первых двух цифр, последних двух цифр, первой и последней цифры натурального многозначного числа, введённого в десятичной,...
diassultanov1 diassultanov1  26.09.2019 17:40
Из массива а, состоящего из n целых элементов, получить массив в, в который войдут все элементы массива а, кратные 3.число n и элементы массива а ввести с клавиатуры....

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