1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число — сумму чисел, кратных 3.
Вх. 3, 5, 15, 12
Вых. 27
2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 5 и четное. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Вх. 4, 15, 20, 23, 30
Вых. 20
3. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.
Вх. 4, 36, 20, 216, 0
Вых. 252
Var t, rea, n, i: integer;
bigin
write ('Сколько чисел будет введено : ');
readln (n);
res: = 0;
for i:=1 to n do
Begin
write ('Введите число' ,i, ': ');
readln (t);
if (t mod 3= 0) and (t mod 10 =8) then res: = res+t;
end;
writeln (res);
end.
Конечные значения:
Введите число 1: 3
Введите число 2: 18
Введите число 3: 25
Введите число 4: 48
66
(Program exited with code: 0)
Press return to continue