Const n=10;
var
i: integer;
var a: array[1..n] of integer;
begin
for i:=1 to n do begin
a[i]:=random(1,50);
write (a[i]:3);
end;
writeln;
writeln ('Элементы, кратные 5:');
for i:=1 to n do begin
if a[i] mod 5 =0
then write (a[i]:3);
end;
end.
===================================
30 45 2 5 26 47 30 7 4 9
Элементы, кратные 5:
30 45 5 30
===================================
Явно записана последовательность байтов. Забросил их на лист Excel (этот лист я приложил здесь, смотри под решением), преобразовал в символы по кодовой таблице Windows и составил символы вместе.
Получился следующий текст:
У нас завелись предатели родины. В связи с этим мы вынуждены изменить систему шифрования
Значение компьютера в современной жизни
<span> Компьютер, или электронно-вычислительная машина, в нашей жизни занимает все большее место. С его помощью можно напечатать текст или произвести математические вычисления, составить расписание движения поездов и управлять технологическим процессом на заводе, изучать иностранные языки и руководить полетом космической станции, вести бухгалтерские расчеты и планировать бюджет страны, общаться с людьми, находящимися в любой точке земного шара, и вести тончайшие хирургические операции, послать письмо другу и сделать фотографию. </span>
<span> Я могла бы еще долго перечислять возможности современных компьютеров. Но и из этого перечня ясно, что развитие современных технологий, управление экономикой и производством, образование и медицина, наука и космос сегодня немыслимы без компьютера. </span>
Кулак вот тебе и ответ
лайк
