Var x1,y1,x2,y2,r:real;
begin
write('Введите x1,y1');read(x1,y1);
write('Введите x2,y2');read(x2,y2);
r:= sqrt(sqr(x2-x1) + sqr(y2-y1));
write('расстояние между двумя точками = ',r);
<span>end.</span>
<span>Var
x: integer;
BEGIN
Repeat
Write('Ввести число от 1 до 7: ');
Readln(x);
until x in [1..7];
Case x of
1: Writeln('21 пара');
2: writeln('4 пары');
3: writeln('св');
4: writeln(св'');
5: writeln('св');
6: writeln('св');
7: writeln('нет пар');
end;
Readln
END.</span>
Какое именно USB есть микро оно сейчас очень популярно в использование в телефоне в виде зарядки и соединения для компьютера, но если говорить про обычный USB то что про него сказать очень удобная штука, ломается редко, да можно сказать никогда, да USB сейчас везде есть, есть даже разетки виде USB, это очень удобно, не нужен блок питая, так как он уже встроен. USB очень удобен, и прочный, хорошая штука.