Программа на фотке, код старался сделать простым, сделал ещё защиту от дурака это значит программа не заработает если пользователь не выполнит условие А<Б
Диктор на ТБ не тільки голосом повідомляє новину, а й демонструє відповідний відеосюжет;
Друзі не тільки розповідають про захопливий відпочинок, а й показують фото або відео;
На уроці вчитель не тільки пояснює новий матеріал, а й демонструє плакати, малюнки тощо
//Pascal ABC.NET 3.1 сборка 1219
procedure PerAndPlo(var s,p:real;a,b,c:real);
Var
pp:real;
begin
p:=a+b+c;
pp:=p/2;
s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
end;
Var
a1,b1,c1,p1,s1,a2,b2,c2,p2,s2:real;
begin
Writeln('Введите длины сторон первого треугольника:');
readln(a1,b1,c1);
Writeln('Введите длины сторон второго треугольника:');
readln(a2,b2,c2);
PerAndPlo(s1,p1,a1,b1,c1);
PerAndPlo(s2,p2,a2,b2,c2);
Writeln('Сумма периметров:',(p1+p2));
Writeln('Сумма площадей:',(s1+s2));
end.
Пример ввода:
1
2
3
4
5
6
Пример вывода:
Сумма периметров:21
Сумма площадей:9.92156741649221
Begin
write('A':4, 'B':6, 'F1':6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write('X':4, 'Y':6, 'Z':6, 'F2':6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;<span>end.</span>