Перевести код с Pascal на var
s,sn:string;
t,p:text;
i: integer;
begin
assign(t,'C:\in.txt');
assign(p,'C:\out.txt');
reset(t);
rewrite(p);
while not (Eof(t)) do
begin
readln(t,s);
sn:='';
for i:=1 to length(s) do
if s[i] in ['0','1'..'8','9'] then
sn:=sn+s[i]+s[i] else sn:=sn+s[i];
writeln(p,sn);
end;
close(t);
close(p);
end.
1.Компью́терный ви́рус — вид вредоносного программного обеспечения внедряться в код других программ, системные области памяти, загрузочные секторы, и распространять свои копии по разнообразным каналам связи.
2. Не работать под привилегированными учётными записями без крайней необходимости (учётная запись администратора в Windows).
Не запускать незнакомые программы из сомнительных источников.
Стараться блокировать возможность несанкционированного изменения системных файлов.
Отключать потенциально опасную функциональность системы (например, autorun-носителей в MS Windows, сокрытие файлов, их расширений и пр.).
Не заходить на подозрительные сайты, обращать внимание на адрес в адресной строке обозревателя.
Пользоваться только доверенными дистрибутивами.
Постоянно делать резервные копии важных данных, желательно на носители, которые не стираются (например, BD-R) и иметь образ системы со всеми настройками для быстрого развёртывания.
Выполнять регулярные обновления часто используемых программ, особенно тех, которые обеспечивают безопасность системы.
3.Wi-Fi — технология беспроводной локальной сети с устройствами на основе стандартов IEEE 802.11. Логотип Wi-Fi является торговой маркой Wi-Fi Alliance
4.Социальная сеть (сокр. ... соцсеть) — онлайн-платформа, которая используется для общения, знакомств, создания социальных отношений между людьми, которые имеют схожие интересы или офлайн-связи, также для развлечения (музыка, фильмы) и работы.
ДАЛЬШЕ НЕЗНАЮ