Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.

@assimovalisher · Регистрация: 22.11.2010

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

Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа.
Помогите решить. А то что я не допер((

@Ev[G]eN · 14.03.2011, 23:55

Pascal

var
 n, summ: integer;
begin
 summ:=0;
 readln(n);
  if (n>99) and (n<1000) then
    while n<>0 do
     begin
      summ:=summ+(n mod 10);
      n:=n div 10;
     end;
  if sqr(n)=summ*summ*summ then
   writeln('1')
  else
   writeln('0');
end.

@assimovalisher · 15.03.2011, 15:14 **[ТС]**

Спасибо конечно, на это будет выглядеть в Дельфи?

Добавлено через 8 часов 12 минут
up up up

@Ev[G]eN · 15.03.2011, 18:39

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 n, summ: integer;
begin
 summ:=0;
 n:=strtoint(Edit1.Text);
  if (n>99) and (n<1000) then
   while n<>0 do
    begin
     summ:=summ+(n mod 10);
     n:=n div 10;
    end;
  if sqr(n)=summ*summ*summ then
   Label1.Caption:='1'
  else
   Label1.Caption:='0';
end;

@assimovalisher · 15.03.2011, 22:16 **[ТС]**

Ev[G]eN, СПАСИБО!

Случаем не поможешь с этими задачами
https://www.cyberforum.ru/delphi/thread257742.html
Дана строка символов, состоящая из произвольного текста на английском языке

@Dobrynia · 01.04.2014, 12:18

Я вставляю код не работает программа?? Подскажите пожалуйста что нужно сделать?

@pHOMM · 01.04.2014, 16:01

Компоненты Button1 Edit1 Label1 на форме есть ? компоненту Button1 назначен в инспекторе объектов в разделе свойств обработчик щелчка Button1Click ?

@assimovalisher 13 / 13 / 0 Регистрация: 22.11.2010 Сообщений: 19
		1
	Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. 14.03.2011, 20:51. Показов 6467. Ответов 6 Метки нет (Все метки) Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. Помогите решить. А то что я не допер(( 0

@assimovalisher 13 / 13 / 0 Регистрация: 22.11.2010 Сообщений: 19
	15.03.2011, 15:14 [ТС]	3
	Спасибо конечно, на это будет выглядеть в Дельфи? Добавлено через 8 часов 12 минут up up up 0

@assimovalisher 13 / 13 / 0 Регистрация: 22.11.2010 Сообщений: 19
	15.03.2011, 22:16 [ТС]	5
	Ev[G]eN, СПАСИБО! Случаем не поможешь с этими задачами https://www.cyberforum.ru/delphi/thread257742.html Дана строка символов, состоящая из произвольного текста на английском языке 0

@Dobrynia 0 / 0 / 0 Регистрация: 27.12.2013 Сообщений: 2
	01.04.2014, 12:18	6
	Я вставляю код не работает программа?? Подскажите пожалуйста что нужно сделать? 0

@pHOMM 480 / 253 / 51 Регистрация: 30.06.2010 Сообщений: 651
	01.04.2014, 16:01	7
	Компоненты Button1 Edit1 Label1 на форме есть ? компоненту Button1 назначен в инспекторе объектов в разделе свойств обработчик щелчка Button1Click ? 0