Найти количество всех двузначных чисел, которые равны разности между суммой кубов и суммой квадратов цифр

@corona1 · Регистрация: 10.05.2013

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

Здравствуйте! проверьте ошибки пожалуйста, задача не выходит.
Найти количество всех двузначных чисел, которые равны разности между суммой кубов и суммой квадратов цифр самого числа.

Pascal

var i,k: integer;
 
begin
k := 0;
for i := 10 to 99 do
 if (sqr(i mod 10)*(i mod 10) + sqr(i div 10)*(i div 10)) - 
    (sqr(i mod 10) + sqr(i div 10)) = i then
  inc(k);
writeln(k);
readln; end.

@Puporev · 16.05.2013, 16:43

Если по условию, то так, но таких чисел нет

Pascal

uses crt;
var i,k,c1,c2: integer;
begin
clrscr;
k := 0;
for i := 10 to 99 do
 begin
  c1:=i div 10;
  c2:=i mod 10;
  if c1*c1*c1+c2*c2*c2-(c1*c1+c2*c2)=i then  inc(k);
 end;
write('k=',k);
readln
end.

	16.05.2013, 16:43