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

Question

Информатика

Светланыч

27 февраля, 21:34

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

+5

Ответы (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.