Informatika Testlar Variant 1

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. Следующие числа расположить в порядке убывания: 74₈; 100010₂; 70₁₀; 37₁₆.
Ответ:


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.
Ответ: