Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 26.02.2014
Сообщений: 13
1

Составить множество целых чисел, взятых из некоторого промежутка и представленных в виде суммы квадратов двух целых чисел.

01.03.2014, 09:56. Показов 1965. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составить множество целых чисел, взятых из некоторого промежутка и представленных в виде суммы квадратов двух целых чисел.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2014, 09:56
Ответы с готовыми решениями:

Найти суммы двух случайных чисел. a) целых чисел из диапазона от 50 до 100 b) вещественных чисел от 3х с половиной до 8
помогите решить Найти суммы двух случайных чисел. a) целых чисел из диапазона от 50 до 100 b)...

Из диапазона целых чисел выделить множество целых чисел, делящихся без остатка на K, или на L
Из диопозона целых чисел m..n выделить. 1)множество целых чисел,деляшихся без остатка на K,или на L...

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

Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел?
1.Составить блок-схему "Гороскоп"(по месяцу выдает количество дней в месяце). 2. написать...

1
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
01.03.2014, 12:03 2
Лучший ответ Сообщение было отмечено kyz как решение

Решение

Довольно некрасивое решение в лоб
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt;
var a,b,i,c,d,n:integer;
    x:array[1..100] of integer;
    f:boolean;
begin
clrscr;
repeat
writeln('Введите диапазон натуральных чисел');
readln(a,b);
until (a>0)and(b>a);
n:=0;
for i:=a to b do
 begin
  f:=false;
  c:=1;
  while(c<=trunc(sqrt(i))-1)and not f do
   begin
    d:=c+1;{если числа разные, если можно типа 4+4, то d:=c}
    while(d<=trunc(sqrt(i)))and not f do
    if c*c+d*d=i then
     begin
      n:=n+1;
      x[n]:=i;
      f:=true
     end
    else d:=d+1;
    if not f then c:=c+1
  end;
 end;
if n=0 then write('Нет чисел, представляемых в виде суммы квадратов')
else
 begin
  writeln('Искомое множество');
  for i:=1 to n do
  write(x[i],' ');
 end;
readln
end.
0
01.03.2014, 12:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2014, 12:03
Помогаю со студенческими работами здесь

Дано множество целых чисел, выделить множество чисел кратных 3 и 4
Дано множество целых чисел, выделить: 1) Множество чисел кратных 3; 2) Множество чисел кратных 4;...

Найти все числа, которые можно представить в виде суммы квадратов двух натуральных чисел.
Дано натуральное число n. Среди чисел 1,2, …, n найти все те, которые можно представить в виде...

Проверьте, можно ли представить число в виде суммы двух квадратов натуральных чисел. Написать программу
Проверьте, можно ли представить число в виде суммы двух квадратов натуральных чисел. Входные...

Сформировать в программе массив из целых чисел от 2 до N. Подсчитать сумму квадратов четных и сумму квадратов нечетных чисел
Сформировать в программе массив из целых чисел от 2 до N. Подсчитать сумму квадратов четных и сумму...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru