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

Question

Информатика

Геннадий

18 июля, 00:28

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

+1

Ответы (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.