Меню сайта

Задача №3

Даны два целых числа —AиB(A&lt- —B). Найти сумму всех целых чисел от —Aдо —B -включительно.


Program for_3-

Var a,b,i,s:integer-

Begin

Writeln(‘введите число A’)-

Readln(a)-

Writeln(»введите число B’)-

Readln(b)-

For i:=A to B do

begin

s:=s+i-

end-

Writeln(‘сумма чисел= ‘,s)-

Readln-

End.

Категория: Циклы | Дата: 14.11.12

Меню раздела
Блок