По данным координатам точек а и в вычислите длину отрезка ав. пример входных данных: ха=2 уа=1 хb=10 yb=7 пример выходных данных i ab i=10.0 для решения воспользуйтесь формулой: ав= корень квадратный((х2-х1)^2+(y2-y1)^2)
Не понравилась реализация, переделал, специально сохранив основу предыдущего решения.
const legal = ['0'..'9', 'A'..'F', 'a'..'f'];
var s: string; i: integer; IsHex: Boolean;
begin writeln('Введите строку: '); readln(s); i := 1; IsHex := True; while (i <= length(s)) and IsHex do begin if not (s[i] in legal) then IsHex := False; i := i + 1 end; if isHex then writeln('Введенная строка является шестнадцатиричным числом.') else writeln('Введенная строка не является шестнадцатиричным числом.'); end.
Тестовое решение:
Введите строку: 58bfa Введенная строка является шестнадцатиричным числом. Введите строку: 1054Acg Введенная строка не является шестнадцатиричным числом.
begin
write('xa, ya: ');
readln(xa,ya);
write('xb,yb: ');
readln(xb,yb);
ab:=sqrt(sqr(xb-xa)+sqr(yb-ya));
writeln('|AB| = ',ab:5:2);
end.
Пример:
xa, ya: 2 1
xb,yb: 10 7
|AB| = 10.00