Var
Z:array [1..10] of Integer;
i,max,min:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to 10 do
Begin
Write('Z(',i,') = ');
ReadLn(Z[i]);
End;
max:=Z[1];
min:=Z[1];
For i:= 2 to 10 do
begin
if (Z[i]>max) then max:=Z[i];
if (Z[i]<min) then min:=Z[i];
End;
Writeln('Наибольшее число = ',max);
Writeln('Наименьшее число = ',min);
end.
√(x-0,3)^2 =|x-0,3|
Поэтому можно так:
Var
x:real;
Begin
Write('x = ');
Read(x);
Write('y = ',sqrt(sqr(x-0.3)))
End.
а можно так:
Var
x:real;
Begin
Write('x = ');
Read(x);
Write('y = ',abs(x-0.3))
End.
Ответ:
Это в паскаль? Если да то. y:=(x*x+5)/10
Язык программирования PHP:
<?php
$a = 6.5;
$b = -4.18;
if ($a > $b) {
$otvet = $a - $b;
echo ($otvet);
}
else {
$otvet = ($a + $b) * ($a + $b);
echo($otvet);
}
?>
Изначально есть три функции, включающие цвета.
yellow()
red()
green()
Делаем таймер под название time, а потом пишем подобное:
do {
if (time<10)
red();
if (time<10)
yellow();
if (time<10)
green();
}