Program program1;
var
x, y: real;
begin
writeln('Введите X: ');
readln(x);
y := x * 2 + 3;
writeln('y = ', y);
end.
Var S,A:integer;
Begin
S:=0;
For A:= 10 to 99 do
S:=S+A;
WriteLn('S = ',S)
End.
Program ch;
var x,y: real;
begin
write('x='); readln(x);
write('y='); readln(y);
if ( ( y*y>=1-x*x) and (y>=0) and (y<=2) and (x>=-2) and (x<=2))
then writeln('true')
else writeln('false');
end.
Клавишу Shift - если я не ошибаюсь
1) 123 в двоичной = <span>1111011
123 в восьмеричной = 173
123 в шестнадцатеричной = 7В
456 в двоичной = </span>111001000<span>
456 в восьмеричной = 710
456 в шестнадцатеричной = 1С8
2) 100011 в десятеричной = 35
</span>100011 в восьмеричной = 43
100011 в шестнадцатеричной = 23
101001011 в десятеричной = 331
101001011 в восьмеричной = 513
101001011 в шестнадцатеричной = 14В
1110010001 в десятеричной = 913
1110010001 в восьмеричной = 1621
1110010001 в шестнадцатеричной 391