Закодируй слова с кода Цезаря. Установите соответствие. 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
Ответы
1. Безусловный цикл
loop <количество повторений> do
begin
<тело цикла>
end;
2. Цикл с предусловием
while <условие> do
begin
<тело цикла>
end;
3. Цикл с постусловием
repeat
<тело цикла>
until
<условие выхода>
4. Цикл со свободным выходом
loop <количество повторений> do
begin
<часть тела цикла>
if <условие выхода> then break;
<часть тела цикла>
end;
5. Цикл со счетчиком (итератором)
for var <переменная> := <стартовое число> to <конечное число> do
begin
<тело цикла>
end;
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Напишите программу среде программирования кумир
Автор: Vetroff-11
Приведите пример описания массивов разного типа в паскале
Автор: nata27-73589
Нарисовать корабль в pascalABC
Автор: klodialeit36
Не совсем верно, но очень близко.
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.
Объяснение: