Begin
Writeln('23+45*11-15 = ', 23+45*11-15);
Writeln('(37+2*27)/41 = ',(37+2*27)/41);
Writeln('((5638-2347)/49)+((123*756)/4455) = ',((5638-2347)/49)+((123*756)/4455));
end.
<u>Результат:</u>
23+45*11-15 = 503
(37+2*27)/41 = 2.21951219512195
((5638-2347)/49)+((123*756)/4455) = 88.0359925788497
Если это звуковой файл, то увеличить частоту дискретизации
Мама-привет,дочка,как дела?
что получила?
дочка-привет,хорошо,пятёрку.
мама-молодец.
папа-поздравляю.
дочка-спасибо.
брат-умница.
Program HelloWorld;var a1,b1,c1,a2,b2,c2:integer; s:double;begin writeln('First'); a1:=5; b1:=6; c1:=1; writeln(a1,'-',b1,'-',c1); writeln('Second'); a2:=3; b2:=2; c2:=8; writeln(a2,'-',b2,'-',c2); if(b1>a1)and(b1>c1) then a1:=b1 else if (c1>a1) then a1:=c1; if(b2>a2)and(b2>c2) then a2:=b2 else if (c2>a2) then a2:=c2; s:=(a1+a2)/2; writeln(s:0:2);end.
Во вложении - рабочая книга MS Excel 2003 с двумя листами. На каждом - по задаче. Коды находятся в соответствующих листах.