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

Fromm Hanna
Oct 24, 2020
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.
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
Смежные вопросы: