Гоша- учится в 5 классе ,кружок-математ.
Витя-6, фотокружок
Алеша-7-авиамодели.
Боря-8,шахмат.
Думаю,что так, но не уверена,напишите потом верно или нет
Определяете процедурную переменную в стиле определения лямбда - выражения, например,
begin
<span>var dr: real->real := x->x*x;
</span><span>var func: real->real := x->sin(x)+cos(x);
var add: (real,real)->real := (x,y)->x+y;
</span><span> writeln(dr(2));
</span><span> writeln(func(1));
writeln(add(2,3));
end.
</span>
4
1.38177329067604
5
program znanija;
var
a,c:integer;
begin
a:=Random(0,100);
while c <> a do
begin
readln(c);
if c>a then
writeln('Число больше чем загаданное');
if c<a then
writeln('Число меньше чем загаданное');
if c=a then
writeln('ПОБЕДА!');
end;
end.
7 бит ииииииииии ето точно
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
(var a,var g):=(1.45,0.2);
var x:=Ln(a+1/a);
var y:=sin(x+a)*(1+Sqr(x+a))/(g*Sin(a));
Writeln('x=',x,', y=',y)
end.
<u>Результат</u>
x=0.760644681664142, y=23.7854781268528