Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 109406
14.11.2007, 17:04
0.00 руб.
0 3 3
Компьютеры Программирование
Здравствуйте, не могу задачу решить:
Найти сумму элементов, принадлежащих промежутку от А до В (А и В вводить с клавиатуры).
Знаю что надо искать с помощью цикла с предусловием, не заню как реализовать. Помогите пожалуйста

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
14.11.2007, 17:36
общий
это ответ
Здравствуйте, Исаак Моисеевич!

Приблизительно так:
<font color=blue>var a,b,s:integer;
begin
write(‘a:‘);readln(a);
write(‘b:‘);readln(b);
s:=0;
while a<=b do
begin
s:=s+a;
inc(a);
end;
write(‘s:‘,s);
end.</font>
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
14.11.2007, 23:12
общий
это ответ
Здравствуйте, Исаак Моисеевич!
Смотрите код программы в приложении.


Приложение:
{109406}uses crt;var a,b,S:integer;begin clrscr; S:=0; write(‘введите натуральное число A=‘); readln(a); write(‘введите натуральное число B=‘); readln(b); if a<b then begin while a<b-1 do begin a:=a+1; S:=S+a; end; end else begin while b<a-1 do begin b:=b+1; S:=S+b; end; end; write(‘сумма элементов S=‘,S); readln;end.
Неизвестный
15.11.2007, 13:45
общий
это ответ
Здравствуйте, Исаак Моисеевич!
sum := 0;
for i := a to b do sum := sum + i;
Если под элементами понимаются целые числа.. Если элементы массива, то
for i := a to b do sum := sum + a[i];
Форма ответа