Question

Напишите программу по блок схеме (Паскаль)

Answer 1

Ответ:

Var a,b,c,p,s,r:real;

Begin

Read(a,b);

If(a>b) then p:=a+b+c

Else s:=a*b/2;

If (p>s) then r:=p/2;

Writeln(s);

Writeln(p*r);

End.

От себя добавлю, что более бессмысленной блок-схемы не видел никогда, конечно если это все, а не часть очень хитрой фигни.