Ответ на фото. Таблица истинности составляется по формуле.
//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
Объяснение:
Можно через блокнот, Word...
Пусть _ заменяет любую букву из набора К, А, Т и Е. Тогда все удовлетворяющие условию слова можно поделить на группы:
- РР_ (есть 4 слова такого вида, их можно получить, подставляя на место _ буквы из набора)
- Р_Р (4 слова)
- _РР (4 слова)
- РРР (одно слово)
Всего получается 4 + 4 + 4 + 1 = 13 слов.
Основное назначение этой папки заключается в быстром обмене файлами и папками между учетными записями пользователей на одном компьютере или с другими компьютерами и устройствами в сети.Использовать эту папку или нет – личный выбор каждого. Мне она не нужна, но это не означает, что она не пригодиться и вам. Например, если ваш компьютер используют другие члены семьи, и у каждого из них есть своя учетная запись, вы можете использовать папку «Общие» для обмена файлами между всеми этими пользовательскими учетными записями. Все, что вы поместите в эту папку, станет доступно из-под других учетных записей. Каждый может внести изменения в любой файл, и как только изменения будут сохранены, они станут доступны остальным пользователям.<span>Папку «Общие» можно использовать для обмена файлами с другими компьютерами в вашей сети. Это может быть особенно полезно при совместном использовании файлов с пользователями, на компьютерах которых установлена операционная </span>