Решебник
- Урок 11. Задание 3.
- ...
- Урок 16. Задание 7.
- Урок 16. Задание 8.
- Урок 16. Задание 9.
- Урок 16. Задание 10.
- Урок 17. Задание 1.
- Урок 17. Задание 2.
- Урок 17. Задание 3.
Program rast;
var x2,x1,r:real;
begin
cls;
read(x1,x2);
if x1>x2 then r:=x1-x2
else
r:=x2-x1;
writeln('Расстояние между точкам равно ',r);
end.
var x2,x1,r:real;
begin
cls;
read(x1,x2);
if x1>x2 then r:=x1-x2
else
r:=x2-x1;
writeln('Расстояние между точкам равно ',r);
end.