Question

Ребята срочно помогите! 15 баллов! Решить в паскале!
На вход подаются два числа – a и b. Вывести на экран сумму всех чисел между ними, которые кратны 5 и превышают 15. Если таких чисел нет, вывести “NO”.

Answer 1

var a,b,i,s:integer;
begin
write ('Введите числа: ');
readln (a,b);
if a<=b then
for i:=a to b do
if (i mod 5 = 0) and (i>15) then s:=s+i;
if a>b then
for i:=b to a do
if (i mod 5 = 0) and (i>15) then s:=s+i;
if s>0 then writeln ('Сумма всех чисел между ними, которые кратны 5 и превышают 15, равна: ',s)
else writeln ('NO')
end.