Uses crt;
var a:integer;
begin
write ('y=');read (a);
write (a*1024);
end.
Program z10;
var a,b:Array [1..10] of integer;
i,q,k:integer;
Begin
Randomize;
q:=0;k:=0;
For i:=1 to 10 do
begin
a[i]:=random(40)-20;
if(a[i]<0)then q:=q+1;
if(a[i]>0)then k:=k+1;
end;
if(k>q)then writeln('положительных больше');
if(k<q)then writeln('отрицательных больше');
if(k=q)then writeln('положительных и отрицательных одинак.. кол-во');
end.
<span><span><span> компьютер выполняет вычисления, если он включен.
2. если компьютер включен, то можно на нем работать.
3. принтер не будет работать, если его установить.
4. видеоадаптер служит для управления отображением информации</span>
</span></span>
Var
i: integer;
begin
for i:=1 to 10 do
writeln(i, ' Кбайт = ', i*1024, ' байт');
<span>end.
</span><span>Бейсик
</span>DIM I AS INTEGER;
FOR I:=1 TO 10
PRINT I*1024
NEXT I
Видать расписать как для робота схему поведения
чем подробней тем лучше, например
зайти в кладовку
взять веник
взять совок
выйти из кладовки
пройти в помещение, которое необходимо подмести
движениями слева направо сметать мусор в сторону (многократно, пока все помещение не будет подметено)
собрать мусор веником в одну кучку
кучку мусора веником замести на совок
подойти к мусорному ведру
высыпать мусор из совка в мусорное ведро
пройти в кладовку и поставить на место веник и совок
как то так.. степень подробности выбирайте сами