var
a,n,min:integer;
begin
readln(a);
n:=1;
min:=100;
if (a mod 3 <>0) or (a=0) then
begin
writeln('Net par');
exit;
end
else
begin
n:=a;
repeat
readln(a);
if a mod 3 <> 0 then break;
n:=n*a;
if (n<min) then min:=n;
n:=a;
until (a mod 3 <> 0) or (a=0);
end;
writeln;
if min = 100 then writeln('Net par') else
writeln(Min);
end.
1.Откройте почтовый ящик
2.Выберите ссылку написать письмо
3.Введите поле кому
4. Выберите тема
5. Введите текст письма
6.нажмите кнопку отправить
1) Вес файла = 640 * 480 * 24 = 7372800 бит ( 8 * 3 = 24 бит)
Времени понадобится = 7372800/28800 = 256 секунд
2) x МБайт = 1024x КБайт
10ГБайт = 10 * 1024 * 1024 =
КБайт
Откуда
3) Это аналог двоичной системы счисления, где
A = 0, Б = 1.
На первом позиции стоит число со значением 0.
Значит на 7 месте будет число 7 - 1 = 6 = 110 = ББА
Var
n, i, z: Integer;
begin
Write('n=');
ReadLn(n);
if n = 0 then
WriteLn('z=-1')
else if (n < 0) then
WriteLn('Введено отрицательное число')
else
begin
z := 1;
for i := 1 to n do
z := z * 1 * (3 * i - 1);
WriteLn('z=', z);
end;
end.