1. Сколько единиц в двоичной записи восьмеричного числа 175? А) 6 В) 5 C) 3D) 42. Значение выражения 1000, + 118-1116 в двоичной системе счисления равноА) 10111110 В) 10100001C) 10001 100 D) 110000103. Определите значение целочисленных переменных а и b после выполнения фрагментапрограммы:а:= 1819; b:= (a mod 100)*10+9; a:= (10*b-a) div 100;А) а = 1, b = 199 В) а = 81, b = 189 С) а = 71, b = 199 D) a=71, b = 1894. Значения двух массивов А[1..100] и В[1..100] задаются с следующегофрагмента программы. Сколько элементов массива В будут иметь отрицательныезначения?for n:=1 to 100 do A[n]:=n-10; fоr n:=1 to 100 do B[n]:=A[n]*n;А) 10 В) 50 C) 90 D) 1005. Укажите, какое логическое выражение равносильно выражению АЛВА.А) Ал ТВB) АС) АЛВD) AvВ6. Какое логическое выражение равносильно выражению Av вл С?A) AlcvB B) Av1cv B) C) AV (Cy B) D) AvlcvВ7. Рассматривается множество неотрицательных целых чисел. Определитемаксимальное число из этого множества, кодируемое 11 битами.А) 2047B) 11 C) 888D) 10248. Укажите минимальный объем памяти в килобайтах, достаточный для хранениярастрового изображения размером 512x256 пикселей с 64 цветами в палитре.А) 512В) 96 C) 1024 D) 169. MS Excel. В ячейке В1 записана формула =2*$A$1. Какой вид приобретет формула, после того как ячейку В1 скопируют в ячейку С2?А) =2*SBS IB) =2*$ASIC) =3*$A$2D) =3*$B$ 110.Вычислите сумму чисел 1916 и 638. Результат представьте в двоичной системесчисления.А) 1 101 1011B) 1110001 C) 1100011 D) 1001 10011.Каково наибольшее целое число X, при котором истинно высказывание:X (X + 1) 2 72)л (ХХ <65)?В) 8 C) 7 D) 1 112.Ссылка в электронной таблице - это:А) номер столбца и номер строкиВ указания адреса ячеекC) совокупность математическихоператоров чисел, функцийD)область определяемая пересечением столбца и строки электронной таблицы13.Имя файла обязательно должно содержать A) название B) расширение C) названием и расширения D) все ответы верны
Ответы
var
x: string;
arr: array of char;
begin
readln(x);
arr := x.Split(' ')[1].ToCharArray();
System.Array.Reverse(arr);
writeln(length(arr), ' ', new string(arr));
end.
var
c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
r, q, s: real;
i, a, b: byte;
begin
q := 1;
i := 1;
r := c.Min();
while (i < length(c)) do
begin
q *= c[i];
i += 2;
end;
readln(a, b);
s := b - a - 1;
writeln('T = ', (R / Q + 1) + S);
end.
const
k = 5;
p = 5;
var
f: array [1..k, 1..p] of string;
o: real;
df: byte;
begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 99).ToString();
write(f[i, j]:3);
if (j >= 7 - i) then
begin
o += integer.Parse(f[i, j]);
df += 1;
f[i, j] := '██';
end;
end;
writeln();
end;
writeln();
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
writeln(o / df);
end.
x: string;
arr: array of char;
begin
readln(x);
arr := x.Split(' ')[1].ToCharArray();
System.Array.Reverse(arr);
writeln(length(arr), ' ', new string(arr));
end.
var
c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
r, q, s: real;
i, a, b: byte;
begin
q := 1;
i := 1;
r := c.Min();
while (i < length(c)) do
begin
q *= c[i];
i += 2;
end;
readln(a, b);
s := b - a - 1;
writeln('T = ', (R / Q + 1) + S);
end.
const
k = 5;
p = 5;
var
f: array [1..k, 1..p] of string;
o: real;
df: byte;
begin
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
begin
f[i, j] := random(10, 99).ToString();
write(f[i, j]:3);
if (j >= 7 - i) then
begin
o += integer.Parse(f[i, j]);
df += 1;
f[i, j] := '██';
end;
end;
writeln();
end;
writeln();
for i: byte := 1 to k do
begin
for j: byte := 1 to p do
write(f[i, j]:3);
writeln();
end;
writeln(o / df);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Напишите программу в Python-е, которая вoзвращает рeзультат цeлочисленного и по модулю дeления любого цeлого числa нa -17
Автор: ВладимировнаАлександр1421
Написать программу, которая 7 раз выводит на экран ваше имя (использовать цикл) * Имя-Ростик
Автор: Ахмедшина Трубников1249
Рассортируйте заданный линейный массив по возрастаниюpascal)
Автор: irinasolodova3
program aaa;
const n=50;
var w, c, x, d10, d4, d1: integer;
begin
writeln ('введите вес бандероли');
readln (w);
if w < = n
then c: =10
else
if w mod n = 0
then c: =10+((w div n)-1)*5
else c: =10+5+((w div n)-1)*5;
d10: = c div 10;
d4: = (c-10*d10) div 4;
d1: = (c-d10*10-d4*4);
writeln ('стоимость бандероли: ',c,' драхм');
writeln;
writeln ('для оплаты нужно не менее');
writeln (d10: 10,' монет по 10 драхм');
writeln (d4: 10,' монет по 4 драхмы');
writeln (d1: 10,' монет по 1 драхме');
end.
результат работы программы:
введите вес бандероли 100
стоимость бандероли: 15 драхм
для оплаты нужно не менее
1 монет по 10 драхм
1 монет по 4 драхмы
1 монет по 1 драхме