Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
1.Если дракону сто лет или меньше, то у него 3N голов. Если ему больше ста лет, то у него 300+2(N-100) голов.
2.Высказывание: «Число A является положительным» на языке Pascal записывается как присваивание логической переменной f математического эквивалента (A > 0)
<span>на ПОлке есть кнИгИ. нА Полке нет __хм__т. нА ПОлке бОльШе. МестО ИгруШек.</span>
Сборник слов в алфавитном порядке, с пояснениями, толкованиями или с переводом на другой язык<span>.<span>Совокупность всех слов какого-нибудь . языка, а также слов, употреблённых в каком-н. одном произведении или в произведениях какого-нибудь. писателя.-Значение словаря </span></span>Смотря какой словарь Ну например,если словарь английского языка для перевода слов с одного языка на другой Энциклопедия-<span> приведённое в систему обозрение всех отраслей человеческого знания или круга дисциплин, в совокупности составляющих отдельную отрасль знания.Энциклопедии делятся на универсальные , отраслевые ,<span> региональные, проблемные, персональные.</span>. </span>
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.
