В компьютерной системе есть возможность подключать новые устройства ввода, вывода,память компьютера, заменять старые устройства на современные, неисправные - на работающие
var f,g:string;
i:integer;
begin
readln(f);
for i:=1 to length(f)-1 do if (f[i+1]='а') then g:=g+f[i];
writeln(g);
g:='';
for i:=2 to length(f) do if (f[i-1]='а') then g:=g+f[i];
writeln(g);
end.
Ответ:
20 1,2 35 134.72
201.235.134.72
АВГБ
Объяснение:
Так как IP-адрес не может иметь в 4 частях числа больше 255, просто подставляем методом перебора подходящие значения
Var pass,s:string; k:integer;
begin
pass:='12345';
k:=0;
repeat
writeln('Введите пароль:');
readln(s);
k:=k+1;
until (s=pass)or(k=3);
if s=pass
then writeln('Можно приступать к работе')
else writeln('Вызываю охрану');
end.
Пример:
Введите пароль:
1
Введите пароль:
12345
Можно приступать к работе
Множество первых букв русского алфавита.
Содержится всего 1 элемент: буква "А"