1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число — сумму чисел, кратных 3.Вх. 3, 5, 15, 12Вых. 272. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 5 и четное. Программа получает на вход количество чисел в последовательности, а затем сами числа. Вх. 4, 15, 20, 23, 30Вых. 203. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.Вх. 4, 36, 20, 216, 0Вых. 252
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Конспект как защищать свои данные
Автор: ckiras9
Является ли коммерческая прибыль признаком Startup’а (стартапа)?
Автор: nastya3213868
Перевести: а)329КБ в байты б)2 мб в биты в)1376256 бит в Кбайты
Автор: vera-sherepa231
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