Предмет: Информатика,
автор: 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.
Через модули если только)
Похожие вопросы
Предмет: Литература,
автор: varvarasevcuk32
Предмет: Алгебра,
автор: tanichkaprihodko
Предмет: Музыка,
автор: angelfedyakova
Предмет: Физика,
автор: таня123455
Предмет: Математика,
автор: филькае