Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 4 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 4 и оканчивающихся на 6.
помогите пожалуйста)
НА ПАСКАЛЕ
Ответы
Ответ:
program z;
var s, a, k :integer;
begin
s:= 0;
read (a);
k:= 1;
while (a <> 0) and (k <= 100) do
begin
if (a <= 300) and (a mod 4 = 0) and (a mod 10 = 6) then s:= s + a;
read(a);
k:= k + 1
end;
write(s)
end.
Объяснение:
переменная s - хранение суммы чисел, соответствующих условию
переменная a - запись текущего числа
переменная k - счётчик введённых чисел
в программе используем цикл с предусловием (while (a <> 0) and (k <= 100) do) с составным условием ((a <> 0) and (k <= 100)) - признак окончания ввода и количество чисел не превышает 100
в программе используем неполный условный оператор (if (a <= 300) and (a mod 4 = 0) and (a mod 10 = 6) then s:= s + a;) с составным условием ((a <= 300) and (a mod 4 = 0) and (a mod 10 = 6)) - введённое число не превышает 300 и введённое число кратно 4 и введённое число оканчивается на 6