Внекоторой стране автомобильный номер длиной 5 символов составляют из заглавных букв (задействовано 28 различных букв) и десятичных цифр в любом порядке. каждый такой номер в компьютерной программе записывается минимально возможным и одинаковым целым количеством байтов (при этом используют посимвольное кодирование и все символы кодируются одинаковым и минимально возможным количеством битов). определите объём памяти, отводимый этой программой для записи 70 номеров (в байтах).

👇

Увидеть ответ

Ответ:

Битон64

02.05.2022

2660 байт потребуется для записи 70 номеров

4,6(47 оценок)

Открыть все ответы

Ответ:

Kaser3er

02.05.2022

Сначала переменные a,b,c получат значения.
Значением условного выражения (a div 25) = 0 будет False (ложно), поскольку 125 / 5 = 5, а не 0.
Следовательно, в первом условном операторе должен выполняться код в блоке, стоящий после ключевого слова else, если таковое имеется.
Рассмотрим фрагмент программы, как он записан:

if a div 25=0 then
if a mod 12=0 then c:=b div (a mod c)
else c:=a div (b mod c);

Отступы придумали не зря: они понимать логику программы.
Мы видим ДВА if, ДВА then и только ОДНО else. Какому же if оно сопоставляется?
Другими словами, какая из двух следующих конструкций правильная?

if a div 25=0 then
if a mod 12=0 then c:=b div (a mod c) else c:=a div (b mod c);

if a div 25=0 then
if a mod 12=0 then c:=b div (a mod c)
else c:=a div (b mod c);

Правила языка Паскаль легко позволяют разрешить проблему: ключевое слово else связывается с ближайшим к нему предшествующим if, не имеющим else.

Следовательно, верно первое из толкований, т.е. первый if ветки с else не имеет. Поэтому значение переменной с не изменится, оставшись равным 12.

ответ: 12

Замечание.
А как сделать, чтобы выполнялась логика второй конструкции? Очень просто: использовать блок.

if a div 25=0 then
begin if a mod 12=0 then c:=b div (a mod c) end
else c:=a div (b mod c);

4,5(35 оценок)

Ответ:

AlinaElsukova

02.05.2022

Четное число делится на два, а кратное пяти делится на пять, поэтому число должно делиться без остатка на 2х5=10

// PascalABC.NET 3.0,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.

Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1

4,4(52 оценок)

Это интересно:

Финансы-и-бизнес

24.05.2021

Как получить бесплатные вещи без какого-либо мошенничества: советы и рекомендации...

Стиль-и-уход-за-собой

21.06.2021

Как блокировать удар: советы от профессионалов для самозащиты...

01.10.2020

Как встречаться с парнем из другой школы: советы и техники...

Здоровье

06.07.2021