Вывести на экран все четырехзначные числа в которых все числа четные паскаль

Может, все цифры чётные? тогда смысл понятен. будем считать это правильным условием. тогда: program chisla; var i,a,b,c,d: integer; begin for i: =1000 to 9999 do begin a: =i div 1000; if a mod 2=1 then continue; //если первая цифра нечетная, переход на следующий виток цикла b: =(i div 100) mod 10; if b  mod 2=1 then continue; //если вторая цифра нечетная, переход на следующий виток цикла c: =(i mod 100) div 10; if c  mod 2=1 then continue; //если третья  цифра нечетная, переход на следующий виток цикла d: =i mod 10; if d  mod 2=1 then continue //если четвертая  цифра нечетная, переход на следующий виток цикла                     else  writeln(i); //иначе все цифры четные - выводим число i на экран end; //конец витка цикла end. //конец программы

ОбъяснениеВ языке Паскаль описатель типа integer требует выделить под каждую переменную или элемент массива количество памяти, необходимое для размещения чисел из диапазона , т.е. отвести не менее двух байт, что и выполнялось в ранних системах, таких как Turbo Pascal, созданных во времена дорогой оперативной памяти. В современных разработках может выделяться и большее количество байт, например, в PascalABC.Net под переменную типа integer отводится 4 байта.

Описатель array [1..20] of integer требует отвести память под 20 элементов типа integer, следовательно, если говорить о минимально необходимом количестве байт, то ответом будет в) 20, 40.

А для PascalABC.Net ответ должен быть 20, 80

Подробнее - на -

ответ: 10. Сообщение, записанное буквами из 64-х символьного алфавита, содержит 20 символов.

Какой объём оно несёт?

Дано:

N = 64 символа

K = 20 символов

lc =?

Найти:

Какой объём оно несёт?

Из формулы N = 2i определим вес 1 символа алфавита: 64 = 2^i → 64 = 2^6 → i^6. Из формулы lc = Kxi определим количество информации в сообщении lc = 20x6 = 120 бит

ответ: Сообщение несёт 120 бит информации.

9. Сообщение занимает 3 страницы по 25 строк. В каждой строке по 60 символов. Сколько символов в использованном алфавите, если всё сообщение содержит 1125 байтов?

Дано:

Iт = 1125 байтов

x = 25 – количество строк

y = 60 – количество символов в строке

M = 3 – количество страниц

Найти:

N = ?

1) N = 2i, неизвестно I; 2) Iт = K*I, I = Iт/K; 3) K = x * y * M = 25 * 60 * 3 = 4 500 символов – в тексте; 4) I = Iт/K = 1 125 * 8/ 4500 = 2 бита – объём одного символа; 5) N = 22 = 4 символа – в алфавите.

ответ: в алфавите 4 символа.