Напечатать множество всех натуральных чисел в диапазоне от 1 до 255, которые могут быть записаны в виде x^2+y^2

@olegsever · Регистрация: 27.02.2012

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

Напечатать множество всех натуральных чисел в диапазоне от 1 до 255, которые могут быть записаны в виде x^2+y^2, но не могут быть представлены в виде xy=c, где С вводится с клавиатуры.
Оформить в виде процедуры.

@Ev[G]eN · 04.03.2012, 23:37

далеко не уверен в решение, потому что не очень понял условия

Pascal

const
  n = 255;
var
  SoB: Set of Byte;
  c: integer;
  i: byte;
begin
  writeln('Множество всех чисел: ');
  for i:=1 to 255 do
    write(i, ' ');
  writeln;
  write('Введите число С: ');
  readln(c);
  for i:=1 to n do
    if (sqr(i) + sqr(i) = c) and (i * i <> c) then
      include(SoB, i);
  writeln('Множество чисел: ');
  for i:=1 to n do
    if i in SoB then write('[', i, ']');
end.

@olegsever 0 / 0 / 0 Регистрация: 27.02.2012 Сообщений: 32
		1
	Напечатать множество всех натуральных чисел в диапазоне от 1 до 255, которые могут быть записаны в виде x^2+y^2 04.03.2012, 22:44. Показов 1355. Ответов 1 Метки нет (Все метки) Напечатать множество всех натуральных чисел в диапазоне от 1 до 255, которые могут быть записаны в виде x^2+y^2, но не могут быть представлены в виде xy=c, где С вводится с клавиатуры. Оформить в виде процедуры. 0

	04.03.2012, 23:37

Напечатать множество всех натуральных чисел в диапазоне от 1 до 255, которые могут быть записаны в виде x^2+y^2

Решение