БЛОК-СХЕМА ВО ВЛОЖЕНИИ
var
a,b,c,min:real;
begin
readln(a,b,c);
if (a*b*c)<(a+b+c)then
min:=a*b*c
else
min:=a+b+c;
writeln(min);
end.
263 Кб= 263*2^13 бит ;
263*2^13/2^7*1000=19 (секунд)
Program by_Relhem;
var a,b,c,S:real;
begin
writeln ('Введите гипотенузу и катет, разделяя их пробелом');
read (a,b);
if a>b then
c:=sqrt(sqr(a)-sqr(b));
if b>a then
c:=sqrt(sqr(b)-sqr(a));
S:=0.5*(a*b);
writeln ('Катет: ',c, ' Площадь: ',S);
end.
<span>формула включений исключений
25-4 = 18 + 20 - х
х = 17</span>