Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 640×288 и палитрой из 16777216 цветов.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
function IsGood(Self:integer):boolean; extensionmethod; begin (var max,var min,var n):=(0,9,abs(Self)); while n>0 do begin var d:=n mod 10; if d>max then max:=d; if d<min then min:=d; n:=n div 10 end; Result:=max-min<5 end;
function P(name:string):double; begin Result:=ReadElements&<integer>(name).Where(n->n.IsGood).Average end;
begin Writeln('Среднее арифметическое равно ',P(ReadlnString('Имя файла:'))) end.
Пример Имя файла: integers.pas Среднее арифметическое равно 1.78571428571429
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.
// Внимание! Если программа не работает, обновите версию!
function IsGood(Self:integer):boolean; extensionmethod;
begin
(var max,var min,var n):=(0,9,abs(Self));
while n>0 do begin
var d:=n mod 10;
if d>max then max:=d;
if d<min then min:=d;
n:=n div 10
end;
Result:=max-min<5
end;
function P(name:string):double;
begin
Result:=ReadElements&<integer>(name).Where(n->n.IsGood).Average
end;
begin
Writeln('Среднее арифметическое равно ',P(ReadlnString('Имя файла:')))
end.
Пример
Имя файла: integers.pas
Среднее арифметическое равно 1.78571428571429