Задачи для решения на языке Pascal

[HappyR]

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

[weech]

for i:=10 to 99 do
   if (i div 10)*(i div 10) - (i mod 10)*(i mod 10) = n then
       writeln(i);

[s-andriano]

Я бы уточнил:

abs(...) = n

Нигде ведь не написано, что нужно вычитать квадрат младшей цифры из квадрата старшей, а не наоборот.
Опять же, что выведет программа, если ей задать число, скажем, 1? Правила хорошего тона требуют, чтобы факт отсутствия искомого обрабатывался отдельно.

[Serge_Bliznykov]

Сообщение от s-andriano

Опять же, что выведет программа, если ей задать число, скажем, 1?

s-andriano, это Вы, коллега, "мимо кассы" Во-первых, в задании чётко сказано, что числа ТОЛЬКО двухзначные, а во-вторых, где Вы в коде weech увидели ввод i ? там цикл. причём такой, что 1 получится ну никак не может.
согласитесь, так будет выглядть, мягко говоря, глупо:
for i:=10 to 99 do
if (i>9) and (i<100) then ...вычисления....


с первым замечанием, про модуль разности - полностью согласен!

[s-andriano]

Ткните пальчиком, где написано, что N должно быть двузначным.

[Serge_Bliznykov]

Сообщение от s-andriano

Ткните пальчиком, где написано, что N должно быть двузначным.

Вот. я понял. к чему Вы....
значность N нигде не используется.
Да и какая разница, какое N ввели ?! Хоть 8-значное...

Сообщение от s-andriano

Опять же, что выведет программа, если ей задать число, скажем, 1?

кстати, при N=1 цикл выдаст число 10
при N=4 - результатом будет число 20
при N=5 - результатом будут числа 23,32



p.s. но в принципе, я согласен с вами,
добавить переменную, которая установит, было ли хоть одно совпадение, действительно несложно.
и тогда в конце, после цикла можно выдать, что мол, WriteLn('Ни одного подходящего числа не найдено');
так гораздо опрятнее и аккуратнее..

[s-andriano]

Сообщение от Serge_Bliznykov

кстати, при N=1 цикл выдаст число 10

Да, это я промахнулся. В примере должно было быть N=2, 6, 10...

[HappyR]

Товарищи тогда полный код как будет выглядеть %)

[HappyR]

uses crt;
var
i,n,j:integer;
begin
clrscr;
Writeln('Введите число N');
readln(n);
j:=0;
for i:= 10 to 99 do
if sqr(i div 10)-sqr(i mod 10)=n then
begin
j:=j+1;
writeln(i)
end;
if j=0 then
Writeln('Чисел, квадрат разности цифр которых равен N нет!');
end.

вот так да? потому как при n=2, нет чисел.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ну да. всё так.
но я бы учёл поправку s-andriano из пост #3 насчёт модуля числа:

uses crt;
var
  i, n, j: integer;
begin
  clrscr;
  Writeln('Введите число N');
  readln(n);
  j := 0;
  for i := 10 to 99 do
    if abs(sqr(i div 10) - sqr(i mod 10)) = n then
    begin
      j := j + 1;
      writeln(i)
    end;
  if j = 0 then
    Writeln('Чисел, квадрат разности цифр которых равен N нет!');
end.

p.s. да. при N=2, 6, 10, и т.п..... решений действительно НЕТ.