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

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и заканчивающихся на 4. Программа получает на вход естественные числа через клавиатуру, количество введённых чисел неведомо, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не заходит в последовательность). Количество чисел не превосходит 100. Введённые числа не превосходят 300. Программка обязана вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Входные данные
54
28
72
34
20
0
78
(С Объясненьями ПОЖАЛУЙСТА!)

Задать свой вопрос
2 ответа

begin

 ReadSeqIntegerWhile(x -gt; x lt;gt; 0)

 .Where(x -gt; (x - 24) mod 30 = 0).Sum.Println

end.

Алина Снегерева
https://znanija.com/task/31723947
Алёна Келесиди
Iolandavalerypad353
Инна Дураченкова
можешь посодействовать
Людмила Данцер
очень прям надобно

PASCAL ABC

program z1;  

var a,s:integer;  //описание переменных

begin

readln(a);  //вводим 1-ое число

s:=0;  //изначальное значение суммы

while alt;gt;0 do //условие ввода (ввод заканчивается нулем)

 begin

   if (a mod 10=4) and (a mod 6=0) then s:=s+a;  //проверка 2-ух критерий:                           1-ая скобка - заканчивается на 5, вторая - кратно 6

   readln(a) //поновой вводим число

 end;

writeln(s)  //вывод суммы, когда весь цикл завершится

end.

P.S не особо разумею, почему с таким вводом, таковой ответ у тебя выходит

Кристина Гуиан
сорри, ошибся, там проверка, что заканчивается на 4
Рускуль Валерий
можете посодействовать
Ромка
люди очень надобно
Игорян Оношенко
https://znanija.com/task/31723947
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт