Регистрация
Войти
Стать экспертом Правила
Информатика

Задание: Дано 2-х значное число, опредилить равен ли квадрат этого чиста учетверенной сумме кубов его цифр.Вопрос: Как решить эту задачу в Free Pascal???

ОТВЕТЫ
var N, sum: integer;
begin
  write('Введите число: '); readln(N);
  sum := ((N div 10)*(N div 10)*(N div 10)+(N mod 10)*(N mod 10)*(N mod 10))*4;
  if sum = sqr(N) then writeln('Равно')
  else writeln('Не равно');
  readln;
end. 
829
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам