var
xa, ya,xb, yb, AB: real;
begin
writeln ('Введите координаты точки А');
readln (xa, ya);
writeln ('Введите координаты точки B');
readln (xb, yb);
AB:= sqrt(sqr(xa-xb)+sqr(ya-yb));
writeln('|AB|=', AB:3:1);
end.
Истинные :
В нашей классной комнате жарко.
Наш класс под номером 31.
В нашем классе есть зеленая доска.
В нашей классной комнате уютно.
Ложные :
В нашем классе стены зеленого цвета.
В нашем классе нет доски.
В нашей классной комнате 25 парт.
В нашей классной комнате коричневая дверь.
Var
i:integer;
begin
for i:=1 to 8 do
if i mod 2 <>0 then
writeln('Число ',i,' Квадрат ',i*i,' Куб ',i*i*i);
<span>end.</span>
для 3го ложное!у него кол-во букв четное и первая согласная
Если нужно изменить\дополнить\пояснить пиши.
var a:integer;
begin
readln(a);
writeln(a div 60,'мин ',a mod 60,'сек')
end.