Задать вопрос
26 декабря, 14:33

1. дан массив, найти первое трехзначное число в нем.

2. дан массив, найти последнее число принадлежащее интервалу от - 10 до 20 и кратное 3.

3. дано натуральное число. определить четная ли его первая цифра.

4. даны три натуральных числа а, в, с. найти НОД (а, в) + НОД (в, с)

+2
Ответы (1)
  1. 26 декабря, 17:42
    0
    Const

    n = 10;

    var

    x: array[1 ... n] of integer;

    i: integer;

    flag: boolean;

    begin

    Randomize;

    Write ('Элементы массива: ') ;

    for i : = 1 to n do

    begin

    x[i] : = Random (10000) ;

    Write (x[i]:5)

    end;

    i : = 1; flag : = false;

    while (i < = n) and (not flag) do

    begin

    flag : = (x[i] > = 99) and (x[i] < = 1000) ;

    if (not flag) then i : = i + 1

    end;

    Writeln;

    if flag then Writeln ('Найден элемент: ', x[i])

    else Writeln ('Искомого числа нет')

    end.

    Тестовое решение:

    Элементы массива: 4136 4921 244 1489 1714 5731 4187 7990 1974 113

    Найден элемент: 244

    const

    n = 13;

    var

    x: array[1 ... n] of integer;

    i: integer;

    flag: boolean;

    begin

    Randomize;

    Write ('Элементы массива: ') ;

    for i : = 1 to n do

    begin

    x[i] : = Random (101) - 50;

    Write (x[i]:4)

    end;

    i : = n;

    flag : = false;

    while (i > 0) and (not flag) do

    begin

    flag : = (x[i] > = - 10) and (x[i] < = 20) and (x[i] mod 3 = 0) ;

    if (not flag) then i : = i - 1

    end;

    Writeln;

    if flag then Writeln ('Найден элемент: ', x[i])

    else Writeln ('Искомого числа нет')

    end.

    Тестовое решение:

    Элементы массива: 21 - 45 - 12 9 - 36 42 - 49 - 48 37 48 - 43 26 - 34

    Найден элемент: 9

    var

    n: longint;

    s: string;

    k, er: integer;

    begin

    Write ('Введите натуральное число-> ') ; Readln (n) ;

    Str (n, s) ;

    Val (s[1], k, er) ;

    if (k mod 2 = 0) then Writeln ('Первая цифра числа четная')

    else Writeln ('Первая цифра числа нечетная')

    end.

    Тестовое решение:

    Введите натуральное число-> 36434523

    Первая цифра числа нечетная

    function NOD (a, b: integer) : integer;

    begin

    while a b do

    if a > b then a : = a - b

    else b : = b - a;

    NOD : = a

    end;

    var

    a, b, c: integer;

    begin

    Write ('Введите через пробел три целых числа: ') ; Readln (a, b, c) ;

    Writeln ('НОД (a, b) + НОД (b, c) = ', NOD (a, b) + NOD (b, c))

    end.

    Тестовое решение:

    Введите через пробел три целых числа: 2048 512 4262

    НОД (a, b) + НОД (b, c) = 514
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. дан массив, найти первое трехзначное число в нем. 2. дан массив, найти последнее число принадлежащее интервалу от - 10 до 20 и кратное ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Помогите решить! 1) Дано натуральное трехзначное число N. Определить сумму и произведение его цифр. 2) Дано натуральное трехзначное число N. Найдите число, образованное перестановкой цифр исходного числа в обратном порядке.
Ответы (1)
1. Дано натуральное число. Найти первую цифру данного числа. 2. Дано натуральное число. Определить количество троек в нем. 3. Дано натуральное число. Определить количество четных цифр в нем. Все это при помощи цикла:while
Ответы (1)
1. Дано двузначное число. Определить: a. какая из его цифр больше, первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число. Определить, равен ли квадрат этого числа учетверённой сумме кубов его цифр.
Ответы (1)
Паскаль. 1) Дано трехзначное число, нужно найти число, полученное при прочтении его цифр справа налево. 2) Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число. 3) Дано трехзначное число.
Ответы (1)
1) Дан массив из n элементов. Найти номер наименьшего элемента массива. 2) Дан массив из n элементов. Упорядочить массив по возрастанию. 3) Дан массив из n элементов. Упорядочить массив по убыванию.
Ответы (1)