Опубликовано 26.01.2018 по предмету Информатика от Гость

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающееся на 6. Программа получает на вход натуральные чисела и колличество введеных чисел не известно,в последовательность чисел заканчивается числом 0 ( это признак окончания ввода, не входит в последовательность. Количество чисел не превышает 100. Введённые числа не превышают 300 Программа должна вывести одно число: сумму всех чисел кратных 6 и окончивающихся на 6.

Ответ оставил Гость

Var A,S:integer;
Begin
S:=0;
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 6) then S:=S+A;
Until A = 0;
Write(S)
End.

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы