{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer; begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
//PascalABC var a, b, c, P, S : real; begin write('Введите длину стороны A> '); readln(A); write('Введите длину стороны B> '); readln(B); write('Введите длину стороны C> '); readln(C); writeln('Вычисление по формуле Герона'); P := (A + B + C) / 2; S := sqrt(P * (P - A) * (P - B) * (P - C)); writeln('Площадь треугольника S = ', S); end.