В прямом коде:
В обратном коде:
В дополнительном коде коде:
131(10)=10000011(2)
63(10)=111111(2)
255(10)=11111111(2)
Uses crt;
var r,h:real;
begin
write('Радиус основания (см) = ');
read(r);
write(#'Высота цилиндра (см) = ');
read(h);
writeln('Объем цилиндра ',pi*r*r*h:0:2,' куб.см.');
end.<span>
</span>
label ra,rb;
var a,b,c: integer;
begin
write('Введите сторону a: ');
readln(a);
ra: write('Введите сторону b: ');
readln(b);
if b>a then
begin
rb: write('Введите сторону c: ');
readln(c);
if c>b then begin
if sqr(c)=sqr(a)+sqr(b) then writeln('Этот треугольник - прямоугольный') else writeln('Этот треугольник - не прямоугольный');
end else begin writeln('Введите число больше, чем ',b); goto rb; end;
end else begin writeln('Введите число больше, чем ',a); goto ra; end;
end.
Var
x:integer;
Begin
WriteLn('f(x) = 1/(x+1)');
For x:= 0 to 6 do
WriteLn('f(',x,') = ',1/(x+1));
End.
Результат работы программы:
f(x) = 1/(x+1)
f(0) = 1
f(1) = 0.5
f(2) = 0.333333333333333
f(3) = 0.25
f(4) = 0.2
f(5) = 0.166666666666667
f(6) = 0.142857142857143