Задача 1 var a:array [1..100] of integer; i,n:integer; begin writeln('Введите n <=100'); readln(n); writeln('Введите массив'); for i:=1 to n do readln(a[i]); writeln('Массив'); for i:=1 to n do write(a[i], ' '); writeln; writeln('Элементы равные сумме двух соседей:'); for i:=2 to (n-1) do if a[i]=(a[i-1]+a[i+1]) then write(a[i],' '); writeln; end.
задача 5 var a:array [1..10000] of integer; i,n, mx1, mx2:integer; begin writeln('Введите n <=10000'); readln(n); writeln('Введите массив'); for i:=1 to n do readln(a[i]); writeln('Массив'); for i:=1 to n do write(a[i], ' '); writeln; mx1:=1; for i:=2 to n do if a[i]>a[mx1] then mx1:=i; if mx1=1 then mx2:=2 else mx2:=1; for i:=1 to n do if (a[i]>a[mx2])and(i<>mx1) then mx2:=i; writeln('Два числа произведение которых максимально: ',a[mx2],' ',a[mx1]); end.
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
begin; var s:=ReadInteger('n=').ToString; If s.Length<>(s.Distinct.Count) then Writeln('не является') else if s=s.ToCharArray.SortedDescending.JoinIntoString('') then Writeln('является') else Writeln('не является') end.
Примеры n= 9875431 является
n= 9753321 не является
n= 9763421 не является
Замечание: учтено, что упорядоченность должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.
120 дм2 = 1,2 м2
47612 мм2 = 0,047612 м2