М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
msyesta
msyesta
06.03.2020 18:32 •  Информатика

Найдите сумму кубов всех натуральных чисел от 1 до x вывестисами числа их кубы и конечный результат

👇
Ответ:
DarkBlood210
DarkBlood210
06.03.2020
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadInteger('x=');
  var s:=0;
  var x3:integer;
  Range(1,x).ForEach(t->begin x3:=t*t*t; Writeln(t:3,'^3',x3:10); s+=x3 end);
  Writeln('ИТОГО:',s:9)
end.

Пример
x= 10
  1^3         1
  2^3         8
  3^3        27
  4^3        64
  5^3       125
  6^3       216
  7^3       343
  8^3       512
  9^3       729
 10^3      1000
ИТОГО:     3025

Найдите сумму кубов всех натуральных чисел от 1 до x вывестисами числа их кубы и конечный результат
4,5(91 оценок)
Ответ:
PoLiNaPaSeKo
PoLiNaPaSeKo
06.03.2020
//Pascal
var
  sum: longint;
  x: integer;
  i: byte;
begin
  write('Введите число X: ');
  readln(X);
  for i := 1 to X do
  begin
    sum := sum + i*i*i;
    writeln(i, ' в кубе = ', i*i*i);
  end;
  writeln('Сумма кубов от 1', ' до ', X, ' = ', sum);
  readln;
end.
4,7(41 оценок)
Открыть все ответы
Ответ:
kleyman200404
kleyman200404
06.03.2020
Var a,b,c,n:integer;
begin
for a:=1 to 7 do
  for b:=a+1 to 8 do
    for c:=b+1 to 9 do
      begin
      n:=a*100+b*10+c;
      write(n:4)
      end;
end.

var
  i,j,n:integer;
  a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
  begin
  for j:=1 to 5 do
    begin
    a[i,j]:=random*2-1;
    write(a[i,j]:20:15);
    if a[i,j]>=0 then n:=n+1;
    end;
  writeln;
  end;
writeln('Количество неотрицательных: ',n);
end.

var
  i,j,sum:integer;
  a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
  for j:=1 to 4 do
    readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
  begin
  for j:=1 to 4 do
    begin
    sum:=sum+a[i,j];
    write(a[i,j]:4);
    end;
  writeln('sum=':8,sum);
  sum:=0;
  end;
end.
4,4(24 оценок)
Ответ:
seslermarina200
seslermarina200
06.03.2020
Линейный (последовательный) алгоритм — описание действий, которые выполняются однократно в заданном порядке. линейными являются алгоритмы отпирания дверей, заваривания чая, приготовления одного бутерброда. линейный алгоритм применяется при вычислении арифметического выражения, если в нем используются только действия сложения и вычитания.

например алгоритм заварки чая:

вскипятить воду ополоснуть кипятком заварной чайник засыпать в чайник заварку залить кипятком заварной чайник накрыть чайник специальной грелкой подождать до полного заваривания 5 минут
4,4(84 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ