// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 function FS(a,b:real):=0.5*a*b; begin var a,b:real; Write('Катеты первого треугольника: '); Read(a,b); var S1:=FS(a,b); Write('Катеты второго треугольника: '); Read(a,b); var S2:=FS(a,b); if S1>S2 then Writeln('Площадь первого треугольника больше') else if S1<S2 then Writeln('Площадь второго треугольника больше') else Writeln('Площади треугольников равны') end.
Тестовое решение Катеты первого треугольника: 4.18 6 Катеты второго треугольника: 5.4 3.9 Площадь первого треугольника больше
[Текст из сниппета]
[Припев]
Эти цепи на мне, сук, лавэ
Сотка тыщ на Black LV
Сотни сук хотят ко мне
Сотни сук хотят ко мне
Как дела? Как дела?
Это новый Cadillac
Делать деньги, делать деньги
Делать деньги, бл*ть, вот так (few-few)
[Куплет]
...
Быстрей, посмотри
Вам подарок, а мне часы
Drip на шее, всё под жопой
Мне чуть больше двадцати
[Припев]
Эти цепи на мне, сук, лавэ
Сотка тыщ на Black LV
Сотни сук хотят ко мне
Сотни сук хотят ко мне
Как дела? Как дела?
Это новый Cadillac
Делать деньги, делать деньги
Делать деньги, бл*ть, вот так (few-few)