Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.96/47: Рейтинг темы: голосов - 47, средняя оценка - 4.96
0 / 0 / 0
Регистрация: 17.05.2019
Сообщений: 37

Найти сумму всех чисел от A до B включительно

28.06.2019, 14:07. Показов 10787. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
НУЖНО СОСТАВИТЬ АЛГОРИТМ В ВИДЕ БЛОК-СХЕМЫ И НАПИСАТЬ ПРОГРАММУ ДЛЯ РЕШЕНИЯ ЗАДАЧИ С РАЗЛИЧИНЫМИ ЦИКЛИЧЕСКИМИ ОПЕРАТОРАМИ :
ДАНЫ ДВА ЦЕЛЫХ ЧИСЛА А и В(А<В). НАЙТИ СУММУ ВСЕХ ЦЕЛЫХ ЧИСЕЛ ОТ А ДО В ВКЛЮЧИТЕЛЬНО.
Задачка не сложная, просто их много, а времени на все нет, ЗАРАНЕЕ БОЛЬШОЕ СПАСИБО)
Если не сложно прикрепите вложения, буду благодарен ещё больше
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.06.2019, 14:07
Ответы с готовыми решениями:

Найти сумму всех целых чисел от N до K включительно
С клавиатуры вводятся целые N&lt;=K. Найти сумму всех целых чисел от N до K включительно цикл For

Найти сумму квадратов всех целых чисел от A до B включительно
Доброго времени суток прошу вас помочь мне решить 4 задачи в паскале , а именно : For9. Даны два целых числа A и B (A &lt; B). Найти...

Найти сумму квадратов всех целых чисел от A до B включительно
Даны два целых числа A и B (A &lt; B). Найти сумму квадратов всех целых чисел от A до B включительно. Решить задачу с помощью рекурсивных...

1
2374 / 776 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
29.06.2019, 12:49
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program Project1;
var
  a,b: integer; // Переменные для хранения вводимых  чисел.
  sum: integer; // Переменная для хранения результатов суммирования.
  i: integer;   // Вспомогательная переменная для организации циклов.
begin
  write('Введите целое число A: ');
  Readln(a);
  write('Введите целое число B: ');
  Readln(b);
  if a > b then
    begin
      Writeln('Значения чисел A и B некорректны. A должно быть меньше B');
      Readln;
      Exit;
    end;
  Writeln('Пример работы цикла с параметрами.');
  sum:= 0;
  for i:= a to b do
    sum:= sum + i;
  Writeln('Результат вычислений суммы: ',sum);
 
  Writeln('Пример работы цикла с условием продолжения работы.');
  sum:= 0;
  i:= a;
  while i <= b do
    begin
      sum:= sum + i;
      inc(i);
    end;
  Writeln('Результат вычислений суммы: ',sum);
 
  Writeln('Пример работы цикла с условием окончания работы.');
  sum:= 0;
  i:= a;
  repeat
    sum:= sum + i;
    inc(i);
  until i > b;
  Writeln('Результат вычислений суммы: ',sum);
 
  Readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
29.06.2019, 12:49
Помогаю со студенческими работами здесь

Найти сумму всех целых чисел, лежащих между 1 и N включительно
условие - http://acm.timus.ru/problem.aspx?space=1&amp;num=1068 вот так решать начал var n, a, i, b:integer; begin readln(n); if...

Найти сумму квадратов всех целых чисел от A до B включительно с использованием рекурсии
Даны два целых числа A и B (A&lt;B). Найти сумму квадратов всех целых чисел от A до B включительно. Помогите решите пожалуйста через...

Найти сумму всех целых чисел от A до B включительно
Даны два целых числа A и B (A &lt; B). Найти сумму всех целых чисел от A до B включительно. #include &lt;stdio.h&gt; #include...

Найти сумму всех целых чисел от A до B включительно
Задача №3 Решить, составить блок схему Даны 2 целых числа A и B (A&lt;B) найти сумму всех целых чисел от A до B включительно. буду...

Найти сумму всех целых чисел от А до В включительно
Задание:Даны два целых числа А и В (А &lt;B) найти сумму всех целых чисел от А до В включительно public class for9 { * * public...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru