<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('Введите четырехзначное натуральное число:');
var p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
Ответ:32768
Объяснение:1024•8•1024/256
program massiv;
var
a:array[1..10] of integer;
i,b,c : integer;
begin
writeln ('posledovatelno vedity elementi massiva (10 chisel)');
for i:=1 to 10 do
readln(a[i]);
b:=a[1];
for i:=1 to 10 do
begin
if a[i]>b then
b:=a[i];
end;
c:=a[1];
for i:=1 to 10 do
begin
if a[i]<c then
c:=a[i];
end;
writeln('raznost mesdu naibolshim i naimenshim elementom massiva =',b-c);
readln;
end.
p.s если нужны пояснения то в личку
2 числа записывают в порядке неубывания, то есть в порядке возрастания, или 2 числа равны. Числа:2512, 2518, 2524 не подходят уже по этому критерию. Max сумма трех десятичных цифр = 27(9+9+9). Число 2828 не подходит. Остались числа: 2425, 1225, 1825, 123. Рассмотрим последнее число 123. Сумма первых 3 его цифр равна 1, т.е первые три цифры 100, третья цифра 0 должна в сумме с двумя другими цифрами дать 23, но сумма 2 цифр меньше или равна 18, поэтому такого числа нет.
Остались 2425 1225 1825
Ответ:3
1)
150 байт = 150*8 бит = 1200 бит
Количество информации на один символ = 1200/400 = 3 бита
Количество символов в алфавите = 2^3 = 8
2)
Количество символов = 80*55 = 4400
3300 байт = 3300*8 бит
Количество информации на один символ = 3300*8/4400 = 6 бит
<span>Количество символов в алфавите = 2^6 = 64
</span>
3)
Количество символов = 3*80*33 = 7920
6930 байт = 6930*8 бит
Количество информации на один символ = 6930*8/7920 = 7 бит
<span>Количество символов в алфавите = 2^7 = 128</span>