Перевести число из Римской системы счисления в десятичную систему счисления:
XXVIII.
2. Перевести число из десятичной системы счисления в Римскую систему счисления: 325210
3. Перевести числа в десятичную систему счисления:
1001 111,012
44,38
9F16
4. Перевести число из десятичной системы счисления в двоичную, восьмеричную, шестнадцатеричную:
26910.
5. Перевести число из двоичной системы счисления в восьмеричную, шестнадцатеричную системы счисления:
1011000010000112
6. Перевести числа из восьмеричной и шестнадцатеричной системы счисления в двоичную систему счисления:
747,528;
478,D216
7. Произвести арифметические операции чисел в двоичной системе счисления:
сложение: 10012 и 10102
вычитание: 101110012 и 100011012
умножение: 110012 и 1 1012
деление: 1010001012и 11012
8. Произвести арифметические операции чисел (сложение, вычитание) в восьмеричной системе счисления: 678 и 238
9. Произвести арифметические операции чисел (сложение, вычитание) в шестнадцатеричной системе счисления: AF16 и 9716
10. Определить истинность высказывания и составить таблицу истинности для составного выражения:
a. «(2*2=4 или 3*3=10) и (2*2=5 или 3*3=9)»
11. Определить истинность составного высказывания, если А=1 и В=1 «(А и (В или не В и не А))»
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.