Напишите программу, которая в последовательности естественных чисел определяет сумму всех
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и заканчивающихся на 4. Программа получает на вход естественные числа через клавиатуру, количество введённых чисел неведомо, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не заходит в последовательность). Количество чисел не превосходит 100. Введённые числа не превосходят 300. Программка обязана вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Входные данные
54
28
72
34
20
0
78
(С Объясненьями ПОЖАЛУЙСТА!)
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 не особо разумею, почему с таким вводом, таковой ответ у тебя выходит
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.