Question

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

Answer 1

var a, b, c: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := a+b;
Label1.Caption := FloatToStr(c);
If 5<a<15
Then Label1.Caption := FloatToStr(c)
Else If 5<b<15
Then Label1.Caption := FloatToStr(c)
end;

Answer 2

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.