Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 16.05.2013
Сообщений: 15
1

Найти все числа последовательности, которые являются разностью двух других ее членов

21.05.2015, 14:35. Показов 996. Ответов 1
Метки нет (Все метки)

Помогите решить задачу..Найти все числа последовательности, которые являются разностью двух других членов этой последовательности.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2015, 14:35
Ответы с готовыми решениями:

Найти все числа последовательности, которые являются разностью двух других членов этой последовательности
Найти все числа последовательности, которые являются разностью двух других членов этой...

Найти все числа последовательности, которые являются разностью двух других членов этой последовательности
uses crt; var f,t: text; a: array of integer; i,j,k,n: integer; number: integer;...

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

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

1
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
21.05.2015, 16:45 2
Лучший ответ Сообщение было отмечено A-1 Yola как решение

Решение

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
39
var
    ar: Array Of Integer;
    i, j, k, n: Byte;
    found: Boolean;
begin
    Write('n='); ReadLn(n);
    SetLength(ar, n);
    Randomize;
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(19) - 9;
        Write(ar[i]:3);
    end;
    WriteLn;
    i := 0; j := 0; k := 0;
    for i := 0 to n - 1 do
    begin
        j := 0; found := False;
        while ((j < n) And (Not found)) do
        begin
            if (j <> i)
            then
            begin
                k := 0;
                while ((k < n) And (Not found)) do
                begin
                    if ((k <> i) And (k <> j))
                    then
                        found := ar[i] = ar[k] - ar[j];
                    Inc(k);
                end;
            end;
            Inc(j);
        end;
        if (found)
        then
            Write(ar[i]:3);
    end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2015, 16:45

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

Найти все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифр
есть задача &quot;Найти все трехзначные числа, которые можно представить разностью между квадратом...

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

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

Найти в последовательности числа, которые являются квадратом числа m
Даны целые положительные числа . Найти среди них те, которые являются квадратами некоторого числа...

Найти плотность распределения случайной величины, являющейся разностью двух других случайных величин
Здравствуйте! Имеется 2 равномерно-распределенных случайных величины X и Y на интервале ....


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru