1. Перевези зайца
3. Перевези капусту
5. Перевези льва
Объяснение:
Ответ и объяснение в фоте
var x1,y1,z1,x2,y2,z2,d:real;
begin
writeln('Введите координаты первой точки');
readln(x1,y1,z1);
writeln('Введите координаты второй точки');
readln(x2,y2,z2);
d:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));
wrileln(d);
end.
2. Телевизор. Устройство для демонстрации изображения со звуковым сопровождением.
Входы: электропитание, сигналы от внешних устройств, управление от пульта.
Выходы: звук изображение, сигналы на внешние устройства.
В PascalABC
var n: integer;
s: string;
begin
write('число: '); readln(s);
n:=(StrToInt(s.Sorted.Reverse.JoinIntoString('')) - StrToInt(s.Sorted.JoinIntoString('')))*StrToInt(s); writeln('число: ',n);
<span>end.
</span>