Цитата:
Сообщение от OMLeTka
ой забыла ссори. девушкам вообще программирование тяженько дается) без пыток выяснила,что на языке паскаля.
|
Это, конечно, было безумно сложно. Но я справился.
Код:
Var
a,b:real;
Begin
Readln(a,b);
if a>b then
writeln((a-100)*(2*b):0:3)
else
writeln((b-100)*(2*a):0:3);
Readln
End.
Блок-схемами, извините, не занимаюсь.