// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var names:array[1..2,1..5] of string:=
(('Саша','Женя','Таня','Лена','Вася'),
('Александр','Евгений','Татьяна','Елена','Василий'));
var name:=ReadlnString('Введите краткое имя:');
var p:=0;
for var i:=1 to 5 do
if name=names[1,i] then begin p:=i; break end;
if p>0 then Writeln(names[2,p])
else Writeln('Я вас не знаю!')
end.
<u><em>Тестовое решение</em></u>
Введите краткое имя: Лена
Елена
Рассмотрим третий байт IP-адреса узла и IP-адрес сети. Распишем в двоичном виде:
94 = 01011110
80 = 01010000
Первые два байта маски равны 255, так как байты узла и сети совпадают.
Для определения третьего байта маски сети найдем число первых бит, которые совпадают. Совпадают 0101, поэтому число первых бит равно 4, а сам третий байт маски равен 11110000, то есть 240.
Копирование - CTRL+C
вставить- CTRL+V
Удаление - DELETE, ctrl z
удаление выбранного объекта - shift delete
<span>Для выполнения деления двух простых дробей следует умножить делимое на дробь, обратную делителю. Эту дробь по-другому называют еще перевернутой, потому что она получается в результате замены местами числителя и знаменателя.</span>