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

@July1609 · Регистрация: 18.06.2012

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

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

@pryda · 06.11.2012, 22:45

Pascal

begin
writeln('Введите число');
var n:integer;
readln(n);
var kv:integer:=Sqr(n);
var s:integer:=0;
while n<>0 do
begin
  s+=n mod 10;
  n:=n div 10;
end;
if kv=s*s*s then writeln('1')
else writeln('0');
end.

@July1609 · 06.11.2012, 23:04 **[ТС]**

спасиибо большое

@July1609 1 / 1 / 0 Регистрация: 18.06.2012 Сообщений: 20
		1
	Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа 06.11.2012, 17:55. Показов 1490. Ответов 2 Метки нет (Все метки) Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. 0

@July1609 1 / 1 / 0 Регистрация: 18.06.2012 Сообщений: 20
	06.11.2012, 23:04 [ТС]	3
	спасиибо большое 0

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

Решение