Markizka22
15.04.2022 21:16

Задача 1. Разработать метод max(a,b) для нахождения максимального из двух чисел. Вычислить с него значение выражения z=max (x,2y-x)+max(5x+3y,y).

2. Задача 2. Разработать метод, который для заданного натурального числа N возвращает значение true – если число если число составное.

3. Задача 3. Разработать рекурсивный метод, который по заданному натуральному числу N (N≥1000) выведет на экран все натуральные числа, не превышающие N, в порядке возрастания. Например, для N=8, на экран выводится1 2 3 4 5 6 7 8.

4. Задача 4. Пусть имеются два массива с именами A и B. Массив A задается. Получить результирующий массив B, обратный к исходному массиву A (элементы массива B идут в обратном порядке по отношению к массиву A). В данном примере приводится реализация обращения массива с трех известных операторов цикла.

5. Задача 5. Вычислите сумму членов последовательности, начинающейся с единицы, в которой каждый следующий член в три раза больше предыдущего, т.е. {1, 3, 9, 27, 81,…}, причем последний член последовательности не должен превышать 1000.

6. Задача 6. Задан массив целых чисел A[20]. Создать другой массив целых чисел B[ ], в который войдут все числа исходного массива, удовлетворяющие условию: А[i] <= 888, после чего отсортировать элементы массива В[ ] по убыванию.

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

Задача 8. Дано: информация о каждом жителе города содержит следующие элементы:
а) фамилия, имя, отчество;
б) домашний адрес (улица, дом);
в) дата рождения.
Информация о жителе является элементом одного большого массива М[ ].
Требуется составить списки избирателей, живущих по заданному адресу в алфавитном порядке.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
кот1555
26.02.2021 18:37
1 вариант

номер 1

Саша- Самойлов
Володя- Левин
Миша- Петриков (т.к только хозяин дома достанет гербарий из своего шкафа)
Юра- Богачёв

номер 2

переливаем 2 литра в 2-ух литровую банку из 6-ти литровой (1 переливание)
(получилось и у той и у другой мёда по 3 литра)
Из двух литровой доливаем литр, который вмещается в 4-ёх литровую банку (2 переливание)
последний литр из 2-ух литровой переливаем в 6ти литровую (3 переливания)

почему-то решилось за 3 переливания

номер 3

2,4,8,10,20,22,44,46...

Прибавление 2, умножение на 2, прибавление 2 и так далее

3,6,12,15,30, 33...

Прибавление 3, умножение на 2, прибавление 3 и т.д

1,3,4,12,13, 39, 40, 120, 121...

Умножение на 3, прибавление 1, умножение на 3 и т.д

Второй вариант решается аналогично
0,0(0 оценок)
Ответ:
MaksymU
10.12.2022 20:55
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота