Найдем, сколько символов вычеркнул Саша – 28 байт надо разделить на вес одного символа 32 бита, но перед делением надо привести все величины к одной единице измерения – проще к байтам.
32 бита = 4 байта, значит в одном байте 8 бит, значит в 32 битах 4 байта так как 32 / 8 = 4
Теперь можно делить 28 байт на 4 байта = 7 символов. Получается, что Саша вычеркнул из сообщения 7 символов. Из 7 вычеркнутых символов один символ был лишней запятой, и еще один лишний пробел.
Значит, символов в вычеркнутом слове будет 7 - 2 = 5.
Ищем в вариантах ответа слово из 5 букв.
Это слово тыква.
ответ: тыква.
Поделитесь своими знаниями, ответьте на вопрос:
ИНФОРМАТИКА 8 КЛАСС 1) Напишите наибольшее число x, для которого истинно высказывание: ( x <25) ИЛИ НЕ ( x четное) ? 2) Напишите наименьшее число x, для которого истинно высказывание: НЕ ( x <=30) И ( x четное) ? 3) Напишите наименьшее трёхзначное число, для которого истинно высказывание: НЕ (Первая цифра чётная) И НЕ (Последняя цифра нечётная) ? 4) Напишите наибольшее трёхзначное число, для которого истинно высказывание: НЕ (Первая цифра нечётная) И НЕ (Сумма цифр чётная) ? 5) Напишите наибольшее число, для которого истинно высказывание: НЕ (Число > 10000) И (Число нечётное)? 6) Напишите наименьшее число, для которого истинно высказывание: НЕ (Число < 100) И НЕ (Число чётное)? 7) Напишите наибольшее трёхзначное число, для которого истинно высказывание: (Первая цифра нечётная) И НЕ (Число делится на 3)? 8) Напишите наименьшее трёхзначное число, для которого истинно высказывание: НЕ(Первая цифра нечётная) И (Число делится на 3) ? ( )
program p1;
uses Crt;
var
i, n, m, min: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(min);
for i := 2 to n do
begin
Read(m);
if m < min then
min := m;
end;
Writeln(min);
ReadKey;
end.
program p2;
uses Crt;
var
i, n, m, max, k: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(max);
k := 1;
for i := 2 to n do
begin
Read(m);
if m > max then
begin
max := m;
k := 1;
end
else if m = max then
k := k + 1;
end;
Writeln(k);
ReadKey;
end.