Uses crt;
var a: array [1..10] of integer;
i,s,k:integer;
begin
clrscr;
randomize;
for i:= 1 to 10 do
begin
a[i]:=random (11);
write ( a[i]:8);
if a[i] mod 2 = 0 then s:=s+1 else k:=k+1;
end;
writeln('Кол-во четных = ',s);
writeln('Кол-во нечетных = ',k);
end.
Program n1;
const n=10;
var a: array[1..n] of integer;
i: integer;
p: real;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i],' ');
if a[i]<10 then p:=p*a[i];
end;
writeln;
write(p);
end.
Function checkstring( s:string ): integer;
var i, k, len: integer;
begin len := length(s);
k := 0;
for i := 1 to len do
begin
if ( s[i] = 'п' ) then
if s[ i + 1 ] = 'о' then
if s[ i + 2 ] = 'л' then inc(k);
end;
checkstring := k;
end;
var str: string;
rez: integer;
begin
write('Введите слово: ');
readln(str);
rez := checkstring(str);
if rez > 0 then writeln('Буквосочетание "пол" встречается в слове в количестве: ', rez)
else writeln('Буквосочетание "пол" в слове не встречается');
<span>end.</span>
<em />
1) 473, 2) 71,3125 3) 40420
2. в 2: 111001101011
в 8: 7153
в 16: e6b
Readln(a); readln(b);
c:=(a+b)/2;
write('Среднее арифметическое -', c);