Составьте программу нахождения суммы всех натуральных чисел из диапазона от А до Б, включая А и В, кратных 5 и 13 (А и В вводятся с клавиатуры).

maxim5251988 maxim5251988    1   09.06.2020 12:49    6

Ответы
shlama283 shlama283  15.10.2020 13:30

PascalABC.NET

begin var (a,b) := ReadInteger2('Введите A и B:'); (A..B).Sum(x->(x.is mod 5=0) or (x mod 13=0)?x:0).Printend.

Пример работы:

5 + 10 + 13 = 28


Составьте программу нахождения суммы всех натуральных чисел из диапазона от А до Б, включая А и В, к
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика