Ответ:
Program triangle;
var ax,bx,cx,ay,by,cy:integer;
begin
Writeln('Введите координату А по Х');
Readln(ax);
Writeln('Введите координату B по Х');
Readln(bx);
Writeln('Введите координату C по Х');
Readln(cx);
Writeln('Введите координату А по Y');
Readln(ay);
Writeln('Введите координату B по Y');
Readln(by);
Writeln('Введите координату C по Y');
Readln(cy);
Writeln('Площадь треугольника равна ', 0.5*((ax-cx)*(by-cy)-(bx-cx)*(ay-cy)));
end.
Подробнее - на Znanija.com - znanija.com/task/4758960#readmore
Объяснение:
Дорожный язык, обозначают правила движения.
а. <span>Дорожные работы
б. </span><span>Железнодорожный переезд со шлагбаумом
в. </span>Надземный пешеходный переход<span>
г.</span>Въезд запрещен
д.Главная дорога
е. Тупик
ж.Слепые пешеходы<span>
</span>
Var s:integer;
begin
write('Стоимость покупки = '); readln(s);
if s>1000
then writeln('Скидка 5% (',s*0.05,' руб.), необходимо заплатить ',s*0.95)
else if s>500
then writeln('Скидка 3% (',s*0.03,' руб.), необходимо заплатить ',s*0.97)
else writeln('Скидки нет');
end.
Пример:
Стоимость покупки = 600
Скидка 3% (18 руб.), необходимо заплатить 582