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

Question

Информатика

Цвета

28 июля, 19:47

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

+4

Ответы (1)

Знаете ответ на вопрос?

Лукаха · Answer 1

Uses crt;

var

A, B, i, s:integer;

begin

writeln ('A=') ; readln (A) ;

writeln ('B = ') ; readln (B) ;

s:=0;

for i:=A to B do begin

if ((i mod 5=0) or (i mod 13=0)) then s:=s+i;

end;

writeln ('Сумма чисел, кратных 5 и 13, от ', A,' до ', B,' = ', s) ;

end.