Var i,j,p :integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
writeln(a[i]);
end;
writeln('Массив по возрастанию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]<a[j] then begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;end;
for i:=1 to 10 do
writeln(a[i]);
writeln('Массив по убыванию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]>a[j] then begin
p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end;
for i:=1 to 10 do writeln(a[i]);
readln;end.<span>
</span>
Ответ:
задача 3
Объяснение:
код написан на delphi/pascal
program Task3;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
Alpha: set of Char = ['A'..'Z','А'..'П','Р'..'Я','a'..'z','а'..'п','р'..'я'];
var
s: String;
i: Integer;
wc: Integer;
begin
Readln(s);
i := 1; wc := 0;
repeat
while not (s[i] in Alpha) and (i <= Length(s)) do Inc(i);
if (i <= Length(s)) then Inc(wc);
while (s[i] in Alpha) and (i <= Length(s)) do Inc(i);
until i > Length(s);
Writeln('Num words -> ',wc);
readln;
end.
<span>В 16 раз. Чтобы пoнять это, достатoчно рассмoтреть текст с 1 символом : в алфавите мощнoстью 16 выбираем 1 из 16, мощностью 256 - один из 256. 256:16 = 16.</span>
A=3, B=4
A > B ⇒ 3 > 4 ⇒ нет
A=A+1=3+1=4
X=A+B=4+4=8
Ответ: X=8