Var
O:string;
i,k:byte;
B,pO:array[1..3] of string;
Begin
B[1]:='2 * 2 = 5 ?';pO[1]:='нет';
B[2]:='Оператор Read вводит данные?';pO[2]:='да';
B[3]:='СССР победил в войне 1812 года?';pO[3]:='нет';
k:=0;
For i:= 1 to 3 do
Begin
WriteLn(B[i]);
ReadLn(O);
O:=LowerCase(O);
While (O <> 'да')and(O <> 'нет') do
Begin
Write('Попробуйте ещё раз: ');ReadLn(O);
O:=LowerCase(O);
End;
if pO[i] = O then k:=k+1;
End;
WriteLn('Количество правильных ответов: ',k);
End.
Uses GraphABC;
Var A:array of point;
Begin
A:=new point[3];
Brush.Color:=clGreen;
A[0]:=(Window.Width div 2,170);
A[1]:=(Window.Width div 2 +80,230);
A[2]:=(Window.Width div 2 -80,230);
Polygon(A);
A[0]:=(Window.Width div 2,120);
A[1]:=(Window.Width div 2 +50,180);
A[2]:=(Window.Width div 2 -50,180);
Polygon(A);
A[0]:=(Window.Width div 2,90);
A[1]:=(Window.Width div 2 +30,130);
A[2]:=(Window.Width div 2 -30,130);
Polygon(A);
Brush.Color := clBrown;
FillRect(A[0].X-10,230,A[0].X+10,250);
End.
100110=1*2(в степени 5)+0*2(в степени 4)+0*2(в степени 3)+1*2(в степени 2)+1*2(в степени 1)+0*2(в степени 0)=32+0+0+4+2+0=38
Var x: Integer;
begin
readln(x);
writeln(((3/abs(x))+(exp((1/3) * ln(x))))/1);
end.