Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
else a:=a*a*a;
writeln('a = ',a);
end.
Пример:
18
<span>a = 324</span>
7680 байт/1024=7,5 Кбайт,
75776 байт/1024= 74 Кбайт
700000 байт/1024=683,59 Кбайт
2Мбайта *1024=2048 Кбайт
400 Мбайт * 1024= 409600 Кбайт
5 Гбайт * 1024 =5120 Мбайт * 1024 = 5242880 Кбайт
300 Гбайт *1024 = 307200 Мбайт * 1024 = 314572800 Кбайт
<?
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 "Не найден";
}
?>
Если нужно вывести большее из двух чисел, то правильно, кроме:
3-я строка - в конце нужна точка с запятой
7-я строка - бессмысленная команда readln. Ее можно не писать.
Ответ:
Объяснение:
красный свет стой жёлтый свет пригатовся зелёный свет иди )))