Предмет: Информатика,
автор: GulnurKa66
задача pascal
Даны три точки А, В, С на числовой оси. Найти длины отрезков АС и ВС и их сумму.(нужно чтобы прошел тест на taskbook)
Ответы
Автор ответа:
0
var A, B, C, AC, BC: integer;
begin
readln(a, b, c);
AC := abs(C - A);
BC := abs(B - A);
S := AC + BC;
Writeln('AC = ', AC);
Writeln('BC = ', BC);
Writeln('S = ', AC+BC);
end.
Через модули если только)
begin
readln(a, b, c);
AC := abs(C - A);
BC := abs(B - A);
S := AC + BC;
Writeln('AC = ', AC);
Writeln('BC = ', BC);
Writeln('S = ', AC+BC);
end.
Через модули если только)
Похожие вопросы
Предмет: Химия,
автор: Аноним
Предмет: Литература,
автор: klnngirl10
Предмет: Алгебра,
автор: sofiamnkov
Предмет: Физика,
автор: таня123455
Предмет: Математика,
автор: филькае