Составить программу возведения заданного числа в третью степень

@Александр_111 · Регистрация: 26.05.2011

Студворк — интернет-сервис помощи студентам

Доброго всем времени суток. Начну с того что я в Паскале практически полный ноль((
Помогите пожалуйста решить следующую задачу:
Составить программу возведения заданного числа в третью степень, имеющую следующую закономерность:
1³=1
2³=3+5
3³=7+9+11
4³=13+15+17+19
5³=21+23+25+27+29
Заранее спасибо! ну и сори за столь тупую тему.

@be · 26.05.2011, 19:08

элементарно ведь

Pascal

var
a,i,p:integer;
begin
write('vvedite chislo');
readln(a);
p:=1;
for i:= 1 to 3 do
p:=p*a;
write('p=',p);
readln;
end.

@Александр_111 · 26.05.2011, 23:24 **[ТС]**

Ввел программу все работает. Но мне кажется программа должна дать не просто ответ, а записать его в таком же виде как
1³=1
2³=3+5
3³=7+9+11
4³=13+15+17+19
5³=21+23+25+27+29

то есть раскладывая по слагаемым. Возможно я ошибаюсь?

Добавлено через 1 час 54 минуты
ответьте пожалуйста кто - нибудь ?

Добавлено через 1 час 53 минуты
олололо тут ни кого нетттт

@Lecar · 26.05.2011, 23:39

Александр_111, а по какому принципу берутся слагаемые?

@Amid007 · 26.05.2011, 23:48

Pascal

program mas;
uses crt;
var a,c: integer;
begin
 clrscr;
 write('vvedite chislo: ');
 readln(c);
 a:=c;
 c:=sqr(c)*c;
 writeln(a,' v 3 stepeni= ',c);
 readln;
end.

@Александр_111 · 27.05.2011, 00:12 **[ТС]**

Александр_111, а по какому принципу берутся слагаемые?

там же все написано) по принципу какое основание такое и количество слагаемых, слагаемые не четные.

@Puporev · 27.05.2011, 13:30

Pascal

uses crt;
var n,s,a:longint;
begin
clrscr;
write('n=');
readln(n);
s:=n*(n-1)+1;
a:=s;
write(n,'^3=',s);
while s<n*n*n do
 begin
  a:=a+2;
  write('+',a);
  s:=s+a;
 end;
write('=',s);
readln
end.

@Александр_111 · 27.05.2011, 13:49 **[ТС]**

Puporev огромное вам спасибо!

@daemian · 25.05.2016, 20:36

Мой вариант:

Pascal

program cube;
var n, i, j, term, cube: longint;
begin
  writeln('Введите натуральное число n');
  readln(n);
  cube := 0;
  term := 1;
  for i := 1 to n - 1 do
    for j := 1 to i do
      term := term + 2;
  for i := 1 to n do
  begin
    cube := cube + term;
    term := term + 2
  end;
  writeln(n, '^3 = ', cube);
  readln;
end.

Составить программу возведения заданного числа в третью степень

Решение

Решение

Решение

Решение

@Александр_111 1 / 1 / 2 Регистрация: 26.05.2011 Сообщений: 47
		1
	Составить программу возведения заданного числа в третью степень 26.05.2011, 18:47. Показов 11685. Ответов 8 Метки нет (Все метки) Доброго всем времени суток. Начну с того что я в Паскале практически полный ноль(( Помогите пожалуйста решить следующую задачу: Составить программу возведения заданного числа в третью степень, имеющую следующую закономерность: 1³=1 2³=3+5 3³=7+9+11 4³=13+15+17+19 5³=21+23+25+27+29 Заранее спасибо! ну и сори за столь тупую тему. 0

@Александр_111 1 / 1 / 2 Регистрация: 26.05.2011 Сообщений: 47
	26.05.2011, 23:24 [ТС]	3
	Ввел программу все работает. Но мне кажется программа должна дать не просто ответ, а записать его в таком же виде как 1³=1 2³=3+5 3³=7+9+11 4³=13+15+17+19 5³=21+23+25+27+29 то есть раскладывая по слагаемым. Возможно я ошибаюсь? Добавлено через 1 час 54 минуты ответьте пожалуйста кто - нибудь ? Добавлено через 1 час 53 минуты олололо тут ни кого нетттт 0

@Lecar 7 / 7 / 7 Регистрация: 22.05.2011 Сообщений: 24
	26.05.2011, 23:39	4
	Александр_111, а по какому принципу берутся слагаемые? 0

@Александр_111 1 / 1 / 2 Регистрация: 26.05.2011 Сообщений: 47
	27.05.2011, 00:12 [ТС]	6
	Александр_111, а по какому принципу берутся слагаемые? там же все написано) по принципу какое основание такое и количество слагаемых, слагаемые не четные. 0

@Александр_111 1 / 1 / 2 Регистрация: 26.05.2011 Сообщений: 47
	27.05.2011, 13:49 [ТС]	8
	Puporev огромное вам спасибо! 0

Опции темы