Как найти сумму кубов всех целых чисел - Исправление недочетов и поиск решений вместе с Examum.ru

0 / 0 / 0

Регистрация: 29.04.2016

Сообщений: 8

Найти сумму кубов всех целых чисел в заданном диапазоне

04.05.2016, 19:29. Показов 10387. Ответов 1

Найти:1) сумму кубов всех целых чисел от 1 до п (значение п вводится с клавиатуры; 1 < п < 100); 2) сумму кубов всех целых чисел от а до b (значения а иЬ вводятся с клавиатуры; b > a) Спасибо большое заранее.

Peoples

1623 / 953 / 782

Регистрация: 06.02.2016

Сообщений: 2,449

Записей в блоге: 30

04.05.2016, 19:41

Сообщение было отмечено Kirill1160 как решение

Решение

Pascal

program pr;
 
var
  i, n, s: integer;
 
begin
  s := 0;
  writeln('Введите n');
  readln(n);
  if (n > 1) and (n < 100) then
  begin
    for i := 1 to n do
    begin
      s := s + i * i * i;
    end;
    writeln('Сумма кубов от 1 до ', n, ': ', s);
  end
  else writeln('n должно быть больше 1 и меньше 100');
end.

Добавлено через 1 минуту
2.

Pascal

program pr;
 
var
  i,a,b, s: integer;
 
begin
  s := 0;
  writeln('Введите a');
  readln(a);
  writeln('Введите b');
  readln(b);
  if b> a then
  begin
    for i := a to b do
    begin
      s := s + i * i * i;
    end;
    writeln('Сумма кубов от ',a,' до ', b, ': ', s);
  end
  else writeln('n должно быть больше 1 и меньше 100');
end.

IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604	04.05.2016, 19:41
2

Источник

program pr;
 
var
  i, n, s: integer;
 
begin
  s := 0;
  writeln('Введите n');
  readln(n);
  if (n > 1) and (n < 100) then
  begin
    for i := 1 to n do
    begin
      s := s + i * i * i;
    end;
    writeln('Сумма кубов от 1 до ', n, ': ', s);
  end
  else writeln('n должно быть больше 1 и меньше 100');
end.

Источник

bejk

+10

Решено

2 года назад

Информатика

5 — 9 классы

Найти сумму кубов всех целых чисел от 20 до 40. Составьте:
a) Блок схему – 3 балла
b) Псевдокод – 3 балла
c) Программу на Питоне – 3 балла

Смотреть ответ

Ответ

5
(1 оценка)

1nkar1

1nkar1
2 года назад

Светило науки — 152 ответа — 0 раз оказано помощи

Ответ:

Написала программу на Пайтон. На 5 баллов норм ведь. И да, за один раз нельзя задавать больше трех вопросов. Такова правила сайта.

Объяснение:

(1 оценка)

Остались вопросы?

Новые вопросы по предмету Информатика

Какое максимальное десятичное число можно представить с помощью 7 двоичных разрядов?

Задание 1 (50 баллов).Решите задачу с помощью таблицы. Задание выполните письменно на бланке домашнего задания или в тетради. Под таблицей запи …

Постройте граф классификации в русском языке по следующему описанию.Предложения в русском языке классифицируются по составу, по интонации и по …

. Постройте граф классификации биологической системы по следующему описанию.Согласно биологической классификации, выделяют три империи (надцарс …

Постройте граф, отображающий состав и структуру мотопехотного батальона по следующему описанию.Во главе батальона БМП стоял командир, которому …

Источник

Найти : Сумму кубов всех целых чисел от 1 до n ( Значение n вводится с клавиатуры ; B> ; a).

На этой странице находится вопрос Найти : Сумму кубов всех целых чисел от 1 до n ( Значение n вводится с клавиатуры ; B&gt ; a)?, относящийся к категории
Информатика. По уровню сложности данный вопрос соответствует знаниям
учащихся 5 — 9 классов. Здесь вы найдете правильный ответ, сможете
обсудить и сверить свой вариант ответа с мнениями пользователями сайта. С
помощью автоматического поиска на этой же странице можно найти похожие
вопросы и ответы на них в категории Информатика. Если ответы вызывают
сомнение, сформулируйте вопрос иначе. Для этого нажмите кнопку вверху.

Источник

program zz1;

var n, i, m, s:integer; / / задаем переменные целого типа

begin

write (‘ введите заданное число n ‘); / / вводим с клавиатуры последнее число ряда

read (n);

for i:=1 to n do / / организуем цикл, в котором переберем числа от единицы до n

begin

s:=s + i * i * i; / / возводим очередное число в куб, умножив на себя два раза, и добавляем его в сумму

end;

write (‘ сумма кубов всех целых чисел от 1 до n = ‘, s); / / выводим ответ

end.

Источник