Question

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

Answer 1

program raf105;

var a,b,c,i:integer;

begin

write('Введите 2 числа A и B: ');

readln(a,b);

for i:=a to b do

if (i mod 5)=0

 then c:= c+i;

writeln('Сумма всех чисел кратных пяти в диапазоне от ',a,' до ',b,' равна ',c);

end.

Язык программирования PascalABC