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

Ответы 2

  • 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. 
    • Автор:

      breean
    • 5 лет назад
    • 0
  •  var a,a1,a2,k,l:integer; begin writeln('Введите число а')read(a); a1:=a mod 10; k:=a div 10; a2:=k mod 10; k:=a*a; l:=4*(a1*a1*a1+a2*a2*a2); if (k=l) then writeln('Равен')           else writeln('Нет'); end.
    • Автор:

      hugo3qsz
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years