№Задача 5. Определите, четные или нечетные введенные числа. Зарубежная программа; Program chet;
Uses crt;
var a,b:integer;
begin
writeln('');
readln(a,b);
if a mod 2=0 then
writeln('a - zhup')
else writeln('a - tak');
if b mod 2=0 then
writeln('b - zhup')
else writeln('b - tak');
Repeat until keypressed;
End.
const
size=8;
var
main_mas: array [1..size] of integer;
i,nchet,proizv:integer;
begin
nchet:=0;
proizv:=1;
randomize;
writeln('Исходный массив:');
for i:=1 to size do begin
main_mas[i]:=random(11);
write(' ',main_mas[i],' ');
if (Odd(main_mas[i])) then
begin
inc(nchet);
proizv:=proizv*main_mas[i];
end;
end;
writeln;
writeln('Кол-во нечетных: ',nchet);
writeln('Произведениче нечетных = ',proizv);
end.
<meta charset="utf-8">
<title>Факториал</title>
</head>
<body>
<form action="/test.php" method="post">
<p><input name="go" placeholder="Enter number" maxlength="20"></p>
<p><input type="submit" value="Send"></p></action>
<?php if (isset($_POST["go"]))
{echo factorial($_POST["go"]);
}
function factorial($n)
{ return $n?$n*factorial($n-1):1;
}
?>
</form>
</body>
</html>
вариант2
<head>
<meta charset="utf-8">
<title>Factor</title>
</head>
<body>
<form action="/test.php" method="post">
<p><input name="go" placeholder="Enter number" maxlength="20"></p>
<p><input type="submit" value="Send"></p>
</action><?php if (isset($_POST["go"]))
{
echo $_POST["go"]."!=";
$result=1;
$go=($_POST["go"]);
while ($go>1){
$result=$result*($go);
echo $go."x";
$go--;
}
echo "1=".$result;
}
?>
</form>
</body>
</html>