Задать вопрос
11 августа, 16:00

Вводится последовательность натуральных чисел, не превосхо-дящих 20000. Ноль - признак конца. Требуется вывести максимальное из произведений двух элементов последовательности, которое делится на 26.

+3
Ответы (1)
  1. 11 августа, 16:20
    0
    Программа на паскале:

    const

    MAX_N = 20001;

    var

    a: array[1 ... MAX_N] of integer;

    n, i, j, p, maxp: integer;

    begin

    i : = 1;

    read (a[i]) ;

    while a[i] 0 do

    begin

    inc (i) ;

    read (a[i]) ;

    end;

    n : = i - 1;

    maxp : = 0;

    for i : = 1 to n do

    for j : = 1 to n do

    begin

    p : = a[i] * a[j];

    if (p mod 26 = 0) and (p > maxp) then

    maxp : = p;

    end;

    if maxp = 0 then writeln ('Not found')

    else writeln (maxp) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Вводится последовательность натуральных чисел, не превосхо-дящих 20000. Ноль - признак конца. Требуется вывести максимальное из ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы