program fantscrin;
const n = 20;
var a: array [1..n] of integer;
i,max,k:integer;
Begin
for i:=1 to n do
a[i]:= random(21)-10;
for i:=1 to n do
write(a[i], ' ');
max:=a[1];
k:=1;
writeln('');
for i:=2 to n do
if (a[i]> max) then
begin
max:=a[i];
k:=i;
end;
i:=a[1];
a[1]:=a[k];
a[k]:=i;
for i:=1 to n do
write(a[i], ' ');
End.
N=2^i, где N - кол-во символов в алфавите, i - количество бит на 1 символ.
в данном случае:
N=8
2^i=8
2^i=2^3
i=3 бит - на один символ(букву)
Ответ: 3 бит
1 - в) caa
2 - в) в столбик
3 - <span>в) char
4 - </span>в) пояснительный текст не нужен
5 - в) символ заключается в апострофы
1)
Var s1: string;
i,a:integer;
Begin
Writeln ('введите текст');
Readln (s1);
for i:=1 to length(s1) do
if (s1[i]='а')or(s1[i]='a') then a:=a+1;
writeln('количество букв а в тексте: ',a);
End.
2)
Var s1,s2: string;
Begin
Writeln ('введите первую строку');
Readln (s1);
Writeln ('введите вторую строку');
Readln (s2);
if length(s1)=length(s2) then writeln('длины строк совпадают')
else writeln('длины строк не совпадают')
End.
1012,1112,10002,10102,11002,1000012.
Для защиты от тупого копирования. gcc 4.8.4