Var a,a1,a2,a3:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр
Помню в начальных классах составляли пример с завтраком :D
Достать батон и колбасу -> Сделать бутерброд -> Заварить чай -> Съесть бутерброд и выпить чай
Объяснить по-моему можно и самой)
Ответ:
1. целые со знаком и целые без знака
2. мантисса и порядок
48 * 40 * 64 = 122880,
Теперь нужно поделить на 1024(это сколько байтов в Кбайт)
Получится 120 Кбайт
<?
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 "Не найден";
}
?>