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

RosalinaT14 RosalinaT14    3   22.05.2021 06:50    4

Ответы
biryukovih biryukovih  22.05.2021 07:00

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика