Var A : array [1..2, 1..5] of integer;
i,j,pr:integer;
Begin
pr:=1;
Writeln('Ведите значения в массив');
for i:=1 to 2 do
for j:=1 to 5 do read(A[i,j]);
for i:=1 to 2 do
for j:=1 to 5 do
if ( (A[i,j] mod 2 = 0) and (A[i,j] mod 3 <> 0) ) then pr:=pr*A[i,j]; Writeln('Произведение = ',pr)
End.
Ответ:
Реализация с помощью встроенной функции сортировки sorted() на Python.
Объяснение:
my_dict = {'a':500, 'b':5874, 'c': 560,'d':400, 'e':5874, 'f': 20}
keys = sorted(my_dict, key=my_dict.get, reverse=True)[:3]
print(keys)
<span>Если первый — гном, то в силу его слов второй и третий — лешие, что невозможно из-за высказывания второго жителя леса. Значит, первый — леший. Если второй — леший, то в силу его слов третий тоже леший, но тогда первый сказал правду, а он должен был соврать. Значит, второй — гном. В силу его слов третий тоже гном. Третий получается честно : ''а) один''.</span>
Потому что из содержимое может автоматически меняться, поскольку в некоторых ячейках могут быть записаны не числа, а формулы по которым вычисляются значения. Поэтому при изменении какого-то значения в одной ячейке такая таблица может быть пересчитана автоматически.
<h3>PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Conv(s: string): string;
begin
var d := s.ToCharArray;
var (i, found) := (d.High, False);
while i >= 1 do
if d[i] > d[i - 1] then
begin
found := True;
break
end
else i -= 1;
if found then
begin
s := s[:i];
var c := d[i - 1];
d := d[i - 1:];
d.Sort;
var j := d.IndexOf(c) + 1;
s += (d[j] + d?[:j] + d?[j + 1:]).JoinIntoString
end
else s := '-';
Result := s
end;
begin
var ms := Arr('1890', '83849', '126631', '146531', '32749972');
foreach var s in ms do
Conv(s).Println
end.
<h2>1908</h2><h2>83894</h2><h2>131266</h2><h2>151346</h2><h2>32772499</h2>