Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Входные данные
54
28
72
34
20
0
78
(С ПОЯСНЕНИЯМИ ПОЖАЛУЙСТА!)
Ответы
Ответ дал:
0
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 не особо понимаю, почему с таким вводом, такой ответ у тебя получается
Ответ дал:
0
сорри, ошибся, там проверка, что оканчивается на 4
Ответ дал:
0
можете помочь
Ответ дал:
0
люди очень надо
Ответ дал:
0
https://znanija.com/task/31723947
Ответ дал:
0
begin
ReadSeqIntegerWhile(x -> x <> 0)
.Where(x -> (x - 24) mod 30 = 0).Sum.Println
end.
Приложения:
![](https://st.uroker.com/files/3b0/3b03c286e820798409f1f9a404445635.png)
Ответ дал:
0
https://znanija.com/task/31723947
Ответ дал:
0
Iolandavalerypad353
Ответ дал:
0
можешь помочь
Ответ дал:
0
очень прям надо
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
8 лет назад