31. Определить значение: trunc(abs(–16)/round(–4.4));
Ответ:
32. Каково наибольшее целое число X, при котором истинно высказывание (X<6) ( (X<5)(X<3))?
Ответ:
33. Что отражается на экране в результате выполнения следующего фрагмента программы (s:char):
For S:='1' to '5' Do Write(S);
Ответ:
34. Какая фигура отражается на черном экране после выполнения следующего фрагмента программы:
Setcolor(15); Circle(100,50,25); Setcolor(14); Circle(100,50,25);
Ответ:
35. Что отражается на экране в результате выполнения следующего фрагмента программы:
K:= '20'; B:= '16'; goto a; C:= '21.07.'; Write(C:2); a: Write(K:1, B:2);
Ответ:
36. Следующие числа расположить в порядке убывания: 748; 1000102; 7010; 3716.
Ответ:
37. Число 1070060 из восьмеричной системы счисления перевести в шестнадцатеричную систему счисления.
Ответ:
38. Определить количество троек (A, B, D), для которых выполнено равенство: A B D = A D
Ответ:
39. Паскаль. Какая процедура создает новый файл во внешней памяти и открывает для записи?
Ответ:
40. Укажите число, выводимое на экран монитора после выполнения программы:
var a, b: integer;
begin a:=5; b:=4; while a<>b do if a>b then a:=a-b else b:=b-a;
writeln(a); readln; end.
Ответ:
Do'stlaringiz bilan baham: |