<span>Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком!</span>
А) 948 (10) = 1110110100 (2) = 1664 (8) = 3B4 (16)
Б) 763 (10) = 1011111011 (2) = 1373 (8) = 2FB (16)
<span>Обработка информации - преобразование информации из одного вида в другой, осуществляемое по строгим формальным правилам.</span>
World Wibe Web - Всемирная паутина
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure CreateFile(p:string);
begin
var f:=OpenWrite(p);
Writeln(f,'В чащах юга жил бы цитрус? Да, но фальшивый экземпляръ!');
Writeln(f,'СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ');
Writeln(f,'ФлегмаТичНая этА веРБлЮдиЦа жует у пОДЪезда засыХающий горький шиповник');
Writeln(f,'The quick brown fox jumps over the lazy dog');
Writeln(f,'THE FIVE BOXING WIZARDS JUMP QUICKLY');
f.Close
end;
procedure UpFile(p:string);
begin
var a:=ReadAllLines(p);
WriteAllLines(p,a.Select(s->UpperCase(s)).ToArray);
end;
begin
var p:=ReadlnString('Введите имя файла (можно, с путём):');
CreateFile(p);
UpFile(p);
// контроль работы
ReadAllLines(p).Println(NewLine)
end.
<u>Пример работы</u>
Введите имя файла (можно, с путём): MyTest.txt
В ЧАЩАХ ЮГА ЖИЛ БЫ ЦИТРУС? ДА, НО ФАЛЬШИВЫЙ ЭКЗЕМПЛЯРЪ!
СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ
ФЛЕГМАТИЧНАЯ ЭТА ВЕРБЛЮДИЦА ЖУЕТ У ПОДЪЕЗДА ЗАСЫХАЮЩИЙ ГОРЬКИЙ ШИПОВНИК
THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
THE FIVE BOXING WIZARDS JUMP QUICKLY