Закодируй слова с кода Цезаря. Установите соответствие.
1) МАЧТА а) ЛПЩЛБ
2) ВОЛОС в) НБШУБ
3) КОШКА б) ПУГЁУ
4) БУКЕТ г) ВФЛЁУ
5) ОТВЕТ д) ГПМПТ
Сколько бит и байт составляет сообщение объемом 1/1024 Мбайта
А) 8192 бит, 1024 байт
Б) 1024 бит, 8192 байт
В) 8192 бит, 2048 байт
Компьютерный алфавит состоит из …
А) 526 символов
Б) 128 символов
В) 256 символов
Какие из перечисленных идентификаторов (имен переменных) записаны с ошибкой? (выберите наиболее полный ответ)
A) FIRST
Б) b12
В) 5five
Г) бета
Д) z312
Е) a&b
Определите значение целочисленной переменной Х после выполнения следующего фрагмента алгоритма:
Напишите программу подсчета количества положительных, отрицательных чисел и чисел, равных нулю. Ввод чисел с клавиатуры.
Укажите тип синтаксической ошибки, имеющейся в данной программе на Паскале:
Program a2;
Var b2,2c: real;
Begin
read(b2);
2c:=b2*b2
End.
А) переменная описана дважды
Б) переменная не описана
В) неверный идентификатор
Г) неверная константа
Дан оператор цикла на языке Паскаль:
A:=0;
for I:=1 to 10 do
begin
A:=A+12;
writeln(A+I,I);
end;
Чему будет равно последнее значение I, выведенное на экран?
А) 10
Б) 120
В) 130
Г) 1
Не совсем верно, но очень близко.
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j,k:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива:');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]=a[i] then k:=k+1;
if k=1 then write('В массиве только 2 одинаковых элемента')
else write('В массиве не 2 одинаковых элемента');
readln
end.
Объяснение: