Var a, b, n, p: integer; // Переменные целочисленного типа. begin write('Длина: '); readln(a); // Задаём длину нашему треугольнику. write('Ширина: '); readln(b); // Задаём ширину нашему треугольнику. n:=a*b // Формула что-бы узнать площадь прямоугольника. write('Площадь: ',b); // Выводим площадь на экран. p:=2*a+2*b; // Формула что-бы узнать периметр треугольника. write('Периметр: ',p); // Выводим периметр на экран. end.
Var a: array[1..255] of integer; b: array[1..10000] of integer; s: string; i,mx,tek,ind,n: integer; begin // задание 1 write('строка: '); readln(s); mx:=0; ind:=0; for i:=1 to 255 do a[i]:=0; for i:=1 to length(s) do if s[i] in ['a'..'z'] then inc(a[ord(s[i])]); for i:=ord('a') to ord('z') do if a[i]>mx then begin mx:=a[i]; ind:=i; end; writeln('наиболее часто встречается буква: ',chr(ind),' - ',mx); // задание 2 write('N = '); readln(n); mx:=0; tek:=0; read(b[1]); for i:=2 to n do begin read(b[i]); if b[i]<=b[i-1] then inc(tek) else begin if tek>mx then mx:=tek; tek:=0; end; end; if mx>0 then writeln(mx+1) else writeln(0); end.
Var C:array['a'..'z'] of integer; S:string; i,Max:integer; j:char; Begin Read(S); For i:= 1 to Length(S) do C[S[i]]:=C[S[i]]+1; Max:=C['a']; For j:= 'b' to 'z' do if Max<C[j] then Max:=C[j]; WriteLn(Max) End.
Var A:array[1..10000] of integer; i,k,Max:integer; Begin ReadLn(i); For i:= 1 to i do Read(A[i]); k:=0; Max:=0; For i:= 1 to i-1 do if A[i]>A[i+1] then k:=k+1 else if k>Max then Begin Max:=k; k:=0; End; if Max=0 then WriteLn(0) else WriteLn(Max+1) End.
