Хотя бы 1 из этих : 1. а) переведите в десятичную систему двоичные числа 1000011110101, 1010010111011, 1110011001100110101. б) переведите в двоичную систему десятичные числа 123, 456, 1024, 4095.
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (a,b):=ReadReal2('Укажите длины сторон прямоугольника:'); Writeln('Площадь=',a*b,', периметр=',2*(a+b), ', диагональ=',Sqrt(a*a+b*b):0:5) end.
Пример Укажите длины сторон прямоугольника: 13.6 8.4 Площадь=114.24, периметр=44, диагональ=15.98499
begin var (a,b):=ReadReal2('Введите a и b:'); Writeln('a+b=',a+b,', a*b=',a*b,', a/b=',a/b) end.
Пример Введите a и b: 134.23 -15.7 a+b=118.53, a*b=-2107.411, a/b=-8.54968152866242
begin var (a,b,c):=ReadReal3('Введите стороны треугольника:'); var p:=(a+b+c)/2; Writeln('S=',Sqrt(p*(p-a)*(p-b)*(p-c)):0:3) end.
Пример Введите стороны треугольника: 13 8 11.3 S=44.843
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017 // Внимание! Если программа не работает, обновите версию!
procedure DimDimoch(x:real; n:integer; var r:real); begin r:=n*Sqr(Sqr((x+3*x)))-12*x*n+2*n end;
begin var x:real; var n:integer; Write('Введите x и n: '); Read(x,n); var r:real; DimDimoch(x,n,r); Writeln('Значение функции ',r) end.
Пример Введите x и n: -1.23 4 Значение функции 2410.83920384
begin Writeln('Введите 6 пар целых чисел'); var k:=0; loop 6 do begin var (a,b):=ReadInteger2; if (a+b).IsEven then k+=1 end; Writeln('Число пар с четной суммой: ',k) end.
Пример Введите 6 пар целых чисел 15 23 19 -7 5 0 4 11 132 63 444 12 Число пар с четной суммой: 3
1010010111011=5307
110011001100110101=209717
б)123=1111011
456=111001000
1024=10000000000
4095=111111111111