Скачиваний:
26
Добавлен:
02.05.2014
Размер:
302 б
Скачать
prog
b := ba * x / 11b ;
c := c - 11010111 ;
if ( x > 10110100 or x = 11110000 ) then
x := x - 11101100 (* коментарий *)
else
a := a - 10101010 ;
for x := 10101110 to 10101001 do
begin
i := i * t ;
a := x << 11001 ;
b := a >> 11001 ;
end ;
x := x / b ;
end.
Соседние файлы в папке Курсовой проект [вариант 14]