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

Question

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

Answer 1

PASCAL ABC

program z1;  

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

begin

readln(a);  //вводим первое число

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

while a<>0 do //условие ввода (ввод оканчивается нулем)

 begin

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

   readln(a) //заново вводим число

 end;

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

end.

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

Comments

сорри, ошибся, там проверка, что оканчивается на 4

---

можете помочь

---

люди очень надо

---

https://znanija.com/task/31723947

Answer 2

begin

 ReadSeqIntegerWhile(x -> x <> 0)

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

end.

---

Comments

https://znanija.com/task/31723947

---

Iolandavalerypad353

---

можешь помочь

---

очень прям надо