Предмет: Информатика,
автор: shadowmoon777
напишите программу, которая в последоательности натуральных чисел оределяет сумму всех чисел, кратных 6 и оканчивающтхся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность ). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел кратных 6 и оканчивающихся на 2. Вводные данные 12, 24, 22, 72, 11, 0. выходные данные 84
СРОЧНО! ПОМОГИТЕ
Ответы
Автор ответа:
0
Var A:byte;
S:integer;
Begin
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 2) then S:=S+A;
Until A = 0;
Write(S);
End.
S:integer;
Begin
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 2) then S:=S+A;
Until A = 0;
Write(S);
End.
Похожие вопросы
Предмет: Математика,
автор: kazahkazahov056
Предмет: Другие предметы,
автор: daleromg
Предмет: Английский язык,
автор: nadaka1344
Предмет: Математика,
автор: zara135