Предмет: Информатика,
автор: паоло
Вводится последовательность натуральных чисел, не превосхо-дящих 20000. Ноль – признак конца. Требуется вывести максимальное из произведений двух элементов последовательности, которое делится на 26.
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Українська мова,
автор: Ivanka535
Предмет: Физика,
автор: nadejdast70
Предмет: Математика,
автор: XAXAKEP
Предмет: Биология,
автор: viktor221233