Получить число m В кубе

@albina1 · Регистрация: 07.06.2010

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

Ввести натуральное число n (10<n<1000) Получить число m В кубе
помогите решить пожалуйста оч срочно нужно

@Piratcom · 08.06.2010, 07:48

Delphi

uses Math;
 
var n: integer;
read(n);
if (n<1000) and (n>10) then m:=Power(n,3);

Ну вобщем так ток я пишу на delphi не знаю как на паскале...

@WolfCF · 08.06.2010, 07:50

Сообщение от Piratcom

Ну вобщем так ток я пишу на delphi не знаю как на паскале...

всё также, только

Pascal

1	m:=sqr(n)*n

@koorya · 08.06.2010, 07:50

Piratcom, вы-то на паскале написали(язык ведь это такой)

Pascal

var 
  n,m:integer;
begin
  readln(n);
  m:=n*n*n;
  writeln(m);
  readln;
end.

@Mad_Dog · 08.06.2010, 07:51

if (n<1000) and (n>10) then m:=sqr(n)*n; или m:=n*n*n;
Sorry, опоздал немного...

@taras atavin · 08.06.2010, 07:54

Piratcom, ты задачу прочитал? Ему дано одно число, а в куб над возвести другое.

Pascal

var n,m:integer;
begin
         readln(n);
         writeln(m*m*m);
end.

Добавлено через 48 секунд

Сообщение от Wolf

sqr(n)

sqr перешёл ещё с паскаля Вирта, и не только в современные досопасы, но и в делфу.

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

Сообщение от Piratcom

m:=n^3;

Оператор ^ возводит в степень на бейсике.

@koorya · 08.06.2010, 07:59

хах, а тип-то Longint нужен. Так как в условии оговаривается, что число от 10 до 1000, следовательно и максимальный куб этого числа 1000000000

taras atavin, а вам не кажется, что топикстартер просто опечатался? Ну n и m рядом на клаве

@albina1 · 08.06.2010, 08:19 **[ТС]**

а можно програмку полностью написать пожалуйста

Добавлено через 2 минуты
Ввести натуральное число n (10<n<1000)Получить число М цифры которого расположены в обратном порядке

Добавлено через 2 минуты
помогите пожалуйста

Добавлено через 2 минуты
Ввести натуральное число n (10<n<1000)Получить число М в кубе цифры которого расположены в обратном порядке

@koorya · 08.06.2010, 08:22

Ввести натуральное число n (10<n<1000)Получить число М цифры которого расположены в обратном порядке

Pascal

var
  n,m,i:integer;
begin
  readln(n);
  m:=0;
  while n<>0 do
    begin
      i:=n mod 10;
      m:=m*10+i;
      n:=n div 10;
    end;
  writeln(m);
  readln;
end.

@Piratcom · 08.06.2010, 08:22

Не по теме:

Сообщение от taras atavin

Оператор ^ возводит в степень на бейсике.

Спасибо, лет 5-6 на бейсике не кодил :)

Думаю топик стартеру было непонятно не то как возвести в куб, а как поставить условие (10<n<1000). Помню себя когда начинал заниматься программированием...

@koorya · 08.06.2010, 08:22

albina1, ну вы, блин, определитесь уже!

@albina1 · 08.06.2010, 08:24 **[ТС]**

Ввести натуральное число n (10<n<1000)Получить число М в кубе цифры которого расположены в обратном порядке

@koorya · 08.06.2010, 08:29

albina1, как я понял, Вы хотите: ввести натуральное число n, которое не меньше 10 и не больше 1000, возведя это число n в куб, получить число m и после расположить знаки этого числа m в обратном порядке? Вот решение:

Pascal

var
  n,m,i:integer;
begin
  readln(n);
  m:=0;
  n:=n*n*n;
  while n<>0 do
    begin
      i:=n mod 10;
      m:=m*10+i;
      n:=n div 10;
    end;
  writeln(m);
  readln;
end.

@albina1 · 08.06.2010, 08:39 **[ТС]**

спасибо огромное

@koorya 334 / 181 / 68 Регистрация: 18.03.2010 Сообщений: 586 Записей в блоге: 11
	08.06.2010, 08:22	11
	albina1, ну вы, блин, определитесь уже! 0

@albina1 0 / 0 / 0 Регистрация: 07.06.2010 Сообщений: 5
	08.06.2010, 08:24 [ТС]	12
	Ввести натуральное число n (10<n<1000)Получить число М в кубе цифры которого расположены в обратном порядке 0

@albina1 0 / 0 / 0 Регистрация: 07.06.2010 Сообщений: 5
	08.06.2010, 08:39 [ТС]	14
	спасибо огромное 0

@albina1 0 / 0 / 0 Регистрация: 07.06.2010 Сообщений: 5
		1
	Получить число m В кубе 08.06.2010, 07:45. Показов 2533. Ответов 13 Метки нет (Все метки) Ввести натуральное число n (10<n<1000) Получить число m В кубе помогите решить пожалуйста оч срочно нужно 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	08.06.2010, 07:51	5
	if (n<1000) and (n>10) then m:=sqr(n)n; или m:=nn*n; Sorry, опоздал немного... 0

@koorya 334 / 181 / 68 Регистрация: 18.03.2010 Сообщений: 586 Записей в блоге: 11
	08.06.2010, 07:59	7
	хах, а тип-то Longint нужен. Так как в условии оговаривается, что число от 10 до 1000, следовательно и максимальный куб этого числа 1000000000 taras atavin, а вам не кажется, что топикстартер просто опечатался? Ну n и m рядом на клаве 0

@albina1 0 / 0 / 0 Регистрация: 07.06.2010 Сообщений: 5
	08.06.2010, 08:19 [ТС]	8
	а можно програмку полностью написать пожалуйста Добавлено через 2 минуты Ввести натуральное число n (10<n<1000)Получить число М цифры которого расположены в обратном порядке Добавлено через 2 минуты помогите пожалуйста Добавлено через 2 минуты Ввести натуральное число n (10<n<1000)Получить число М в кубе цифры которого расположены в обратном порядке 0

@Piratcom 21 / 21 / 3 Регистрация: 05.08.2009 Сообщений: 243
	08.06.2010, 08:22	10
	Не по теме: Сообщение от taras atavin Оператор ^ возводит в степень на бейсике. Спасибо, лет 5-6 на бейсике не кодил :) Думаю топик стартеру было непонятно не то как возвести в куб, а как поставить условие (10<n<1000). Помню себя когда начинал заниматься программированием... 0