Машина Тьюринга решить задачу 2. Составьте программу для машины Тьюринга, которая заменяет в двоичном числе все 0 на 1 и все 1 на 0 (из числа 10101100 получается 01010011). Каретка находится слева от числа​

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

видеокарта, монитор.   это

если положить, что вода замерзает при нуле градусов, то:

program ice;

var temp : integer;

begin

writeln('введите температуру');

read(temp);

if temp > 0 then write ('вода не замерзнет')

else write('вода замерзнет');

end.

2048 бит : 8: 1024= 0.25 кбайт