Алг<span> БИТ1</span>
вещ<span> А, В, С, D</span>
нач<span> ввод А, B, С</span>
если<span> А>В</span>
то<span> D:=A</span>
иначе<span> D:=B</span>
кв
если<span> C>D</span>
то<span> D:=C</span>
кв
<span> вывод D </span>
<span>кон</span>
Смотря о чем ты
выберешь нужный
1 вариант
Копирование
создание
перемещение
удаление
2 вариант
Это относится к информации вообще
Хранение
Обработка
Передача
выбери что нужно или по канкретней вопрос в коментарии
Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.