Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
B) output the contents of the curent directory.........
256 символьный алфавит значит
2⁸=256
один символ имеет объём 8 бит
всего в сообщении
80*32*2=5120 символов
5120*8=<em><u>40960 бит занимает сообщение </u></em>
40960/1024/8=<em><u>5 килобайт занимает сообщение</u></em>
Var n: longint;
k: integer;
begin
k:=0;
write('Введите число: ');
readln(n);
while n>0 do
begin
if n mod 10 mod 2<>0 then
k:=k+1;
n:=n div 10;
end;
writeln('В числе ',k,' нечетных цифр');
readln;
<span>end.</span>