Найти трехзначное число, являющееся точным квадратом числа a, и такое, чтобы произведение его цифр было равно a - 1.

@Marishka1789 · Регистрация: 18.06.2011

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

Тема Процедуры:
Найти трехзначное число, являющееся точным квадратом числа a, и такое, чтобы произведение его цифр было равно a - 1.
Паскаль АВС

@volvo · 25.04.2012, 17:14

Pascal

var i, x : integer;
begin
   for i := 10 to 32 do // Квадраты - от 100 до 1024
   begin
      x := sqr(i);
      if (x < 1000) and ((x mod 10) * (x div 100) * ((x div 10) mod 10) = i - 1)
      then writeln(i);
   end;
end.

С процедурой - так:

Pascal

procedure Check(n : integer; var b : boolean);
var x : integer;
begin
   x := sqr(n);
   b := (x < 1000) and ((x mod 10) * (x div 100) * ((x div 10) mod 10) = n - 1);
end;
 
var
   i : integer;
   b : boolean;
begin
   for i := 10 to 32 do
   begin
      Check(i, b);
      if b then writeln(i);
   end;
end.

@Marishka1789 2 / 2 / 0 Регистрация: 18.06.2011 Сообщений: 48
		1
	Найти трехзначное число, являющееся точным квадратом числа a, и такое, чтобы произведение его цифр было равно a - 1. 25.04.2012, 15:57. Показов 4798. Ответов 1 Метки нет (Все метки) Тема Процедуры: Найти трехзначное число, являющееся точным квадратом числа a, и такое, чтобы произведение его цифр было равно a - 1. Паскаль АВС 0

	25.04.2012, 17:14

Опции темы

Найти трехзначное число, являющееся точным квадратом числа a, и такое, чтобы произведение его цифр было равно a - 1.

Решение