var
x, n:integer;
begin
write('n = ');
readln(n);
x := n mod 10;
n := n div 10;
while n > 0 do
begin
if n mod 10 < x then
begin
writeln('Последовательность неупорядочена по возрастанию');
readln;
Exit;
end;
x := n mod 10;
n := n div 10;
end;
writeln('Последовательность упорядочена по возрастанию');
readln;
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) ;
Объяснение:
Вариант с небольшой автоматизацией
1. Сначала надо перевести всё в секунды: N*60+M = время в секундах
2. Теперь найдём количество молний. Для этого всё время надо разделить на время создания одной молнии: (N*60+M)/X = искомое количество молний.