Расстояние между двумя точками(тремя) - Pascal ABC

Формулировка задачи:

допустим у нас есть провод весь запутанный ( мы знаем расстояние от начала до середины и от середины до конца ) Как посчитать всю длинну провода ? Программа должна автоматический складывать / считать (от начала до середины и от середины до конца ) в итоге программа должна выдать полный размер провода. Может кто подсказать , как правильно это реализовать ?

Код к задаче: «Расстояние между двумя точками(тремя) - Pascal ABC»

textual
Program wet;
Uses crt;
Var r:integer;
Begin
Write('введите расстояние середины r=');
Readln(r);
r:=2*r;
write('Полное расстояние=',r)
End.

8   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ