<?
for($i=0;$i<20;$i++)
{
$number = rand(0,10000);
$a[$i] = $number;
}
$max = -1;
for($i=0;$i<20;$i++)
{
if ($a[$i] / 7 !=0 && $a[$i] >99 && $a[$i] <1000 && $a[$i] > $max)
$max = $a[$i];
}
echo "Все элементы:<br>";
for($i=0;$i<20;$i++)
{
echo "$a[$i]<br>";
}
if ($max!=-1)
{
echo "Нужный: $max";
}
else
{
echo "Не найден";
}
?>
Var
n,k:integer;
begin
k:=5; n:=1;
repeat
k:=k+2;
n:=n+1
until n=10;
Writeln(k)
end.
Результат
23
1. Сообщение о том, что выбран 1 из 4 равновозможных вариантов содержит log2(4) = 2 бита информации (2^2 = 4).
2. Всего символов 150 * 40 * 60 = 360 000.
Если считать, что каждый символ кодируется одним байтом, получится 360 000 байт = 351,6 Кбайт (1 Кбайт = 1024 байт)
3. На каждый символ отводится log2(64) = 6 бит, а объём документа 0,75 Кбайт = 0,75 * 1 024 байт = 0,75 * 8 * 1 024 бит = 6 144 бит.
Поэтому общее количество символов 6 144 / 6 = 1024.
На одну страницу приходится 1024 / 32 = 32 символа.
Надо бы указывать - какой используется компилятор. Вариант программы, который должен работать со всеми версиями паскаля:
program Prog;
var A, B, C: integer;
begin
readln (A, B);
C := A * B;
writeln ('Произведение введенных Вами чисел равно ', C);
end.