Составте программу, которая задаёт вопрос: "в каком году был основан город минск"(например, в 1067г., в 993 г., либо в 1147

program minsk;

var

a: integer;

begin

writeln('в каком году был основан город минск? ');

writeln('в 1067г.');

writeln('в 993г.');

writeln('в 1147г.');

read(a);

if a = 1067 then

writeln('верно')

else

writeln('не верно минск был основан 1067г')

end.

// pascalabc.net 3.3, сборка 1573 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var k: =3;   writeln('*** исходный массив ***');   var a: =matrrandom(k,6,-20,20);   a.println(4); writeln(4*a.colcount*'-');   var n: =readinteger('какую строку удалить (1-'+k+')? ');   assert(n.between(1,k),'введено неверное значение');   var r: =a.row(k-1); // последняя строка   setlength(a,k-1,a.colcount); // теперь строк на одну меньше   if n< k then begin       for var i: =n-1 to k-3 do           a.setrow(i,a.row(i+1));       a.setrow(k-2,r)       end;   writeln(4*a.colcount*'-'); a.println(4) end. примеры *** исходный массив ***   -8    3 -10  -5  -8  11   14  -5 -19  -6 -19 -15     0 -11  11    3  -6 -12 какую строку удалить (1-3)? 1   14  -5 -19  -6 -19 -15     0 -11  11    3  -6 -12 *** исходный массив ***   11 -14  -3  18  19  -9   -11  19    8  20 -19  19   -20  13    3 -13  13    1 какую строку удалить (1-3)? 3   11 -14  -3  18  19  -9   -11  19    8  20 -19  19

ответ:Многие страны перешли на т.н. «информационное общество», некоторые – в процессе перехода, в зависимости от факторов, влияющих на то или иное население. Все меньше уделяется внимания  печатным изданиям: ученные говорят о том, что лет через 30 газеты, журналы, книги исчезнут с прилавков.

С одной стороны, электронные страницы – это хорошо, меньше вреда наносится окружающей среде, да и хранить большое количество информации легче и удобнее в электронном виде. С другой стороны – человечество становится все более зависимым от техники.