Задание:
Помогите составить юлок схему к программе Var a,b,c: real; Begin write ('Введите a,b,c: '); readln (a,b,c); if (a>b) and (b>c) then Begin a: =a*2; b: =b*2; c: =c*2; End else Begin a: =abs (a); b: =abs (b); c: =abs (c); End; writeln ('a=',a: 2:2,' b=',b: 2:2,' c=',c: 2:2); readln; End.
Решение:
__________________________________________________________________________
Знаете другой ответ?