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

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.

Оцени ответ
Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку
Самые новые вопросы