Определить сумму всех чисел из [а; b], кратных 5 (а

Question

Информатика

Ермил

7 декабря, 18:09

Определить сумму всех чисел из [а; b], кратных 5 (а

+3

Ответы (1)

Знаете ответ?

Лекся · Answer 1

Var

a, b:integer;

S:real;

Begin

Write ('a = ') ;

ReadLn (a) ;

Write ('b = ') ;

ReadLn (b) ;

S:=0;

For b: = a to b do

S:=S+b;

WriteLn ('S = ', S) ;

End.