двигатель в самолёте и компьютере
1.
var
a:array [1..100000] of integer;
n, k, i:integer;
begin
read (n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
writeln (a[i]);
readln (k);
for i:=1 to n do
if k>a[i] then write (a[i]);
end.
Надо найти вес одного символа N=2^i= 256 i=8
8 умножить на кол-во символов в вашем ФИО, считая пробелы тоже
за тоже самое время что и туда только + 2 раза скорость течения (один раз будет скорость без течения, 2 раза против течения)