Напишите программку, которая в последовательности естественных чисел определяет сумму всех

Напишите программу, которая в последовательности естественных чисел определяет сумму всех чисел кратных 8 и заканчивающихся на 6

Задать свой вопрос
1 ответ

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы окончить введите 0');

repeat

 readln(a);

 if (a mod 8 = 0) and (a mod 10 = 6)

   then sum+= a;

until a = 0;

writeln('Сумма: ',sum);

end.

PascalABC 3.4.2

Valerija Shvarcburd
Да теснее без различия)
Викулька Хватинина
я теснее сдал что вы написали)
Евгения Табашкова
Есть такое математическое понятие "последовательность естественных чисел". Последовательность натуральных чисел еще нарекают "естественный ряд". Ничего другого, не считая как последовательность вида 1,2,3,4,5,...,N, под этими понятиями не подразумевается.
Регина Голынская
да и хорошо, все равно я этим не буду воспользоваться
Полинка Никшина
Обычно в задачках такового типа указывается число N либо же запрашивается ввод N с клавиатуры. В задании этого не обозначено.
Роман Липштейн
ну там было написано, просто я не стал писать этого. Ведь займёт это минут 5
Артём
Из этого я сделал вывод, что последовательность чисел вводится с клавиатуры. Задачки такого типа тоже посещают.
Геннадий Проклин
сообразил
Alina Karekanova
спасибо что пояснили
Руслан Георгизян
Function test2(n As Integer) As IntegerDim i As Integer, j As Integeri = Int((n + 8) / 10)i = i * (5 * i - 3)j = Int((n + 3) / 10)j = j * (5 * j + 2)test2 = (i + j) * 8End FunctionExcel VBA
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт