ololsha99
03.05.2023 19:37

На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму всех чисел, крат­ных 6 и окан­чи­ва­ю­щих­ся на 6. про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 – при­знак окон­ча­ния ввода, не вхо­дит в последовательность).

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
maksdvinskih
09.10.2020 23:45

var

 N, S: Integer;

begin

 WriteLn ('Введите последовательность натуральных чисел, 0 - для окончания ввода:');

 S := 0;

 repeat

   ReadLn (N);

   if (N mod 6 = 0) and (N mod 10 = 6) then

     S := S + N;

 until N = 0;

 WriteLn ('Сумма = ', S);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота