Program asd;
var a,b:integer;
begin
a:=10;
writeln('1=10');
for b=2 to 10 do
begin
writeln(b,'=',a+((a/100)*10);
a:=a+((a/100)*10);
end;
end.
Об'єкт керування — це окрема машина, апарат, пристрій, технологічний процес або сукупність технічних засобів (машин, апаратів, пристроїв), які виконують технологічний процес, але при цьому потребують спеціально організованих впливів ззовні для досягнення поставленої мети керування.
Var x, y: real;
const centerX = 4; centerY = 4; distance = 3;
begin
writeln('Введите координаты точки x, y: ');
read(x);
read(y);
writeln(abs(centerX - x) + abs(centerY - y) <= distance)
end.