Найти и вывести на печать сумму всех натуральных чисел из промежутка от А до В, кратных 3 и 5 (А и В водятся с клавиатуры).

Question

Информатика

Аскольд

4 июля, 05:55

Найти и вывести на печать сумму всех натуральных чисел из промежутка от А до В, кратных 3 и 5 (А и В водятся с клавиатуры).

+4

Ответы (1)

Знаешь ответ?

Теодорка · Answer 1

Program chisla;

var a, b, sum, i:integer;

begin

read (a);

read (b);

sum:=0;

for i:=a to b do

if (i mod 3 = 0) and (i mod 5 = 0) then sum:=sum+i;

Writeln (sum);

end.