Uses crt;
var xA,xB,yA,yB,D: real;Begin
clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB); d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
writeln('Длина отрезака AB = ',d:0:3)
End.
1) Открыть диск D
2) Нажать Правой кнопкой мыши (ПКМ) на поле, в контекстном меню выбрать: Создать - Новая папка.
Будет создана папка под названием "Новая папка".
3) Нажать левой кнопкой мыши (ЛКМ) 1 раз на названии. Название станет доступно для редактирования. Поменять его на "Pentium I".
4) Нажать двойным кликом ЛКМ на папке, она откроется.
Повторить пункты 2 и 3. Новую папку в папке "Pentium I" назвать "Pentium II".
5) Повторить пункт 4. Новую папку в папке "Pentium II" назвать
"Pentium III".
Всё.
1)
Program n1; var cl,q: string; begin cl:='клоун'; writeln(cl); cl:=cl[1]+cl[4]+cl[2]+cl[3]+cl[5]; writeln(cl); end.
2)
Program n1; var i,k,k1: integer; st: string; x: char; begin readln(st); x:='м'; k := 0; k1:=0; for i := 1 to length(st) do if st[i] = x then k := k + 1; x:='н'; for i := 1 to length(st) do if st[i] = x then k1 := k1 + 1; if(k>k1) then writeln('м больше чем н'); if(k<k1) then writeln('н больше чем м'); end.