Определите значение переменной "C" после выполнения фрагмента программы a=8
b=6
a=a*3/6
if a>b:
c=3*a-4*b
print(0)
else:
c=3*a+4*b
print(c)​

С 40-ого тысячелетия до нашей эры по 2 тысячелетие до нашей эры:  
Наскальные изображения
Петроглифы 
Восковые таблички 
Папирус 
Книга из бамбуковых планок 

С начала нашей эры до начала XX века нашей эры:  
Бумага 
Печатная книга ( " Московский Апостол " ) 
Музыкальные шкатулки
Фонограф 
Патефон 
Книга, напечатанная шрифтом Брайля

От начала ХХ века по наши дни: 
Магнитофон 
Перфокарта 
Жесткий диск 
USB-flash
Фотоплёнка 
Киноплёнка 
Память на магнитных сердечниках 
Кассета для аналоговой звукозаписи 
Аудиокассета 
Микрокассета 
Видеокассета 
Дискеты

Var x,y,z: real;
      t: integer;
begin writeln('введите х и у');
          readln(x,y);
          z:=sqrt(sqr(x)-sqr(y));
          t:=0;
          while (z>0,1) do
          begin t:=t+1;
                    z:=0,98*z;    {если 2% от изменяющегося расстояния до пола;
                   если же имеется ввиду 2% от исходного расстояния,
                   то нужно будет ввести новую переменную
                   или присвоить исходное значение z, например х,
                   то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z;
                   Формула (оператор) z:=0,98*z;  изменится так:
                   z:=z-x*0,98}
           end;
          writeln('палка упадет через ', t,' мин.');
end.