А1. 3) устройство вывода предназначено для передачи информации от компьютера пользователю;
А2. 2) D:\SCHOOL\PHYSICS ( в каталоге PHYSICS создан подкаталог 10_CLASS, а потом туда перетащили файл)
А3. 4) 48 байт. (тк 48 символов в высказывании умножить на 1 байт получится 48 байт)
А4. 2) ADD - первая гласная А, вторая согласная (раз первая гласная), третья -буква, которая не стоит на 1 месте.
В3. Для кодирования всех слов требуется 4 бита (N = 2^i , где N - количество слов Эллочки, i - количество бит, нужное для кодирования всех слов)
В4.
1) 225 Кбайт = 230400 байт = 1843200 бит - всго нужно передать
2) 1843200 бит / 14 400 бит/с = 128 секунд нужно модему, чтобы передать сообщение.
Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
<span>end.</span>
1)
<span><span>procedure Insert(source: string; var s: string; index: integer);
Вставляет подстроку source в строку s с позиции index</span><span>procedure Delete(var s: string; index, count: integer);
Удаляет из строки s count символов с позиции index
2)
var s:string; i,n,code:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do
begin
val(s[i],n,code);
if code=0 then writeln(n);
end;
end.
Пример:
Введите длинное число:3456810285
3
4
5
6
8
1
0
2
8
5
Если не требуется выполнять арифметических действий с цифрами, то можно так:
var s:string; i:integer;
begin
write('Введите длинное число:');
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.</span></span>
<span>Естественные - языки общения (Примеры : русский, английский, китайский)
Формальные - это языки программирования, ноты, жесты (язык глухонемых)</span>
Program z6; Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin g:=a[i]; g[1]:= (Upcase(g[1])); s_2:= s_2 + g + ' '; i:= i + 1; g:=''; end; writeln(s_2);End.