Это задание уже встречалось.
Защита без пароля, формулы отображаются в строке формул.
Var x,y,z:integer;
begin
write('Введите x, y, z: ');
readln(x,y,z);
if (x mod 4=0) and (y mod 4=0) and (z mod 4=0) then
begin
x:=x*2;
y:=y*2;
z:=z*2
end
else
begin
x:=-x;
y:=-y;
z:=-z
end;
writeln(x,' ',y,' ',z)
<span>end.</span>
Пример В)
uses crt;var f,a,b,c:real;beginwriteln ('Введите число A');readln (a);writeln ('Введите число B');readln (b);writeln ('Введите число C');readln (c);F:=(sqrt(sqr(b)*2)-4*a*c);writeln('Ответ: ',f:2:1);end.
Фрактальная графика, также как векторная и трёхмерная,
является вычисляемой. Её главное отличие в том, что изображение строится по
уравнению или системе уравнений. Поэтому в памяти компьютера для выполнения
всех вычислений, ничего кроме формулы хранить не требуется. <span>Только изменив
коэффициенты уравнения, можно получить совершенно другое изображение. Эта идея
нашла использование в компьютерной графике благодаря компактности
математического аппарата, необходимого для ее реализации. Так, с помощью
нескольких математических коэффициентов можно задать линии и поверхности очень
сложной формы.</span>