Ещё второй вопрос по блок схеме ​

1. Окончание срока действия триальной версии (следует приобрести лицензионную копию продукта, а если она была приобретена - переактивировать, обратившись за в техподдержку (адреса и телефоны см. в мини-форуме во Эта надпись появляется тогда, когда вы открываете документы, созданные в более ранних версиях редактора, например, в Word 2003. В этом случае не используются новые возможности редактора, обеспечивая режим совместимости разных версий.

Нужно преобразовать документ в формат Office 2007. Тогда эта надпись исчезнет, но при открытии преобразованного документа в более ранних версиях редактора возникнут проблемы при редактировании, либо уже при открытии документа.

Чтобы преобразовать документ, щелкните по кнопке Office и выберите команду Преобразовать. Откроется диалоговое окно, предупреж дающее о последствиях такого преобразования. Если вы подтвердите преобразование, то заменит / сохранит текущий документ в новом формате.

Если кнопка "Преобразовать отсутствует" - следует сохранить две версии одного документа: одна для старых редакторов, другая в новом формате. Это делается стандартно через выбор команды Сохранить как... .

3. Возможно, сработала защита документа (Вкладка - "Рецензирование" - "Защитить документ" - "Отключить защиту").

1)  var a,b,x: real; begin write ('введите числа а и b: '); readln(a,b); x: =-b/a; writeln('x= ',x); end. 2)  var r1,r2,s: real; begin write ('введите размеры  внешнего и внутреннего радиусов: '); read(r1,r2); s: =pi*r1*r1-pi*r2*r2; write ('площадь кольца =  ',s); end. 3)  var a,b,c,s,p: real; begin write ('введите длины катетов: '); read(a,b); s: =a*b/2; c: =sqrt(a*a+b*b); p: =a+b+c; write ('площадь треугольника  =  ',s); write ('периметр  треугольника  =  ',p); end. 4)    var a,b,sr: real; begin write ('введите числа а и b: '); readln(a,b); sr: =(abs(a)+abs(b))/2; writeln('среднее арифметическое модулей  = ',sr  ); end. 5)  var x1,y1,x2,y2,r: real; begin write ('введите координаты точек: '); readln(x1,y1,x2,y2  ); r: =sqrt ( sqr(x2-x1)+sqr (y2-y1)); writeln('расстояние  = ',r  ); end. 6)    var a,b,h, s, p: real; begin write ('введите длины оснований и высоту трапеции: '); readln(a,b,h); s: =(a+b)*h/2; p: =a+b+h+sqrt (sqr(abs(a-b))+h*h); write ('площадь трапеции  =  ',s); write ('периметр  трапеции=  ',p); end. 7)  var a,e,d,s, p: integer; begin write ('введите трехзначное число: '); readln(a); e: =a mod 10; s: =a div 100; d: = (a  div 10) mod 10; p: =e*d*s; write ('разность между трехзначным числом и его произведением =  ',a-p); end.   к твоему комментарию  var x,s,m,c: integer; begin write('введите количество секунд: '); readln(x); c: =x div 3600; m: = (x mod 3600) div 60; s: =(x mod 3600) mod 60; writeln('прошло    ',c,'   часов  ',m,' минут ', s,' секунд '); end.