1. Укажите ложные утверждения. *

(3>2) and (5>6) = true

( 'a'<'b') or (1>0)= true

60>20= true

mod (5+3)=2

10 div 3=3

2 div 3 =1

2. Для того чтобы получить случайное число в интервале (0, х], используют функцию языка Паскаль: *

random(x)-1

random(x+1)

random(x)+1

random(x)

3. Переменная а:=х mod 4 = 0 принимает истинное значение, если: *

x=15

x=2

x=16

x=1

4. Для чего предназначен оператор Readln (a)? *

1

для ввода данных с клавиатуры;

для ввода символьных данных;

для печати результатов на принтере;

для вывода на экран.

5. Определите результат работы программы: a := - 6; b := - 5; a := a + 2 * b; b := a; Writeln (a,b). *

0, - 16;

– 16, 0;

– 16, - 16;

– 6, - 5.

6. Что вычисляет функция SQRT? *

Остаток от деления;

Модуль числа;

Квадратный корень;

Определяет знак числа.

7. Какое число будет выведено на экран: Writeln ( - 50 mod 5) ? *

–50

0;

– 10;

10.

8. Что вычисляет функция ABS? *

Остаток от деления;

Модуль числа;

Квадратный корень;

Определяет знак числа.

9. С какого служебного слова начинается раздел описаний: *

Var;

Program

Begin;

End.

10. Чему равно значение выражения -ABS ( - SQRT (4) )? *

4;

2;

-2;

0

222

380

Посмотреть ответы 1

Ответы на вопрос:

alinakat98

Информатика

4,5(83 оценок)

Писал похожую программу , мб пригодитьсяvar cs1,cs2,res,change: integer; td: string; function fromdec(n,r: longint): string; var s: string; const digit: string[16]='0123456789abcdef'; begin s: =''; repeat s: =digit[(n mod r)+1]+s; n: =n div r; until n=0; fromdec: =s; end; function todec(n: string; r: longint): longint; var m,i: longint; const digit: string[16]='0123456789abcdef'; begin m: =0; while n[1]='0' do delete(n,1,1); for i: =1 to length(n) do m: =m*r+pos(n,digit)-1; todec: =m; end; begin writeln('введите из какой сc: '); repeat readln(cs1); until (cs1> =2) and (cs1< =36); writeln('введите число в соответствии с cc: '); readln(td); writeln('введите в какую cc: '); repeat readln(cs2); until (cs2> =2) and (cs2< =36); writeln('перевод из ',cs1,' cc --> ',cs2,' cc: '); writeln(fromdec(todec(td,cs1),cs2)); end.