Вопрос по информатике:
Задача: Дано 2-х значное число, опредилить равен ли квадрат этого чиста учетверенной сумме кубов его цифр. Вопрос: Как решить эту задачу в Free Pascal???
Пожаловаться
- 02.03.2018 17:59
- Информатика
- remove_red_eye 682
- thumb_up 47
Ответы и объяснения 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.
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.
Пожаловаться
- 03.03.2018 22:52
- thumb_up 45
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.
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.
Пожаловаться
- 04.03.2018 09:22
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы