Program ololo; var a,b:integer; begin read(a); if a = 0 then begin write(1); exit; end; while a <> 0 do begin inc(b); a := a div 10; end; write(b); end.
1) const n=?; //Сюда поставить любое нужное n Var a:array[1..n] of real; i,x,k:integer; s:real; Begin for i:=1 to n do begin readln(x); a[i]:=x; end; s:=0; k:=0; for i:=1 to n do begin s:=s+a[i]; k:=k+1; end; s:=s/k; for i:=1 to n do if a[i]<s then write(a[i],', '); s:=s/k; for i:=1 to n do if a[i]<s then write(a[i],', '); readln; End.
2) Const n=?; Var a:array[1..n] of integer; i,max,min:integer; Begin for i:=1 to n do begin readln(x); a[i]:=x; end; min:=a[1]; max:=a[1]; for i:=1 to n do if (i mod 2)=0 then if a[i]>max then max:=a[i]; for i:=1 to n do if (i mod 2)<>0 then if a[i]<min then min:=a[i]; writeln('max=',max); writeln('min=',min); readln; End.
Знаковая система - набор символов определенного типа. Любая знаковая система строится на основании символов определенного типа. В одной знаковой системе одни и те же правила работы со всеми символами. Каждая знаковая система имеет конечный набор символов, который называют алфавитом. Количество символов в одной знаковой системе называют мощностью знаковой системы. Русский язык - это естественная знаковая система. Имеет алфавит, который состоит из букв, буквы дают возможность формировать слова - основу русского языка. Мощность русского алфавита - 33 буквы. Правила чтения слов применяются для всех букв. Написание одних и тех же букв в разных словах одинаково. Десятичная система счисления - формальная знаковая система. Это математическая знаковая система. Алфавит состоит из набора цифр: 0, 1, 2, 3, 4 и т.д. Мощность алфавита - 10 цифр. Правила сложения, вычитания, умножения, деления, возведения в степень и других математических действий используется для любых чисел, состоящих из цифр десятичной системы.
var a,b:integer;
begin
read(a);
if a = 0 then begin write(1); exit; end;
while a <> 0 do
begin
inc(b);
a := a div 10;
end;
write(b);
end.