8 Укажите тип переменной для выражения: ((х>=-2) и (x<=2)) Если х, то A. целый B. вещественный Если все выражение то D. логический
9 Для выражения y=(3a+b)/2 исходными данными будут... A. a,b
10 Для выражения y=(a+4b) при а=6, b=8 результат будет равен... D. 38
11 Неправильным является имя величины... C. 12авс
12 Сумма двух слагаемых а и b, деленная на сумму двух других слагаемых c и d запишется как... C. (a+b)/(c+d)
13 Имеется серия команд f:=2; f:=f*f; f:=f*f; f:=f*f. Чему равен результат? B. 256
14 Линейным называется алгоритм, в котором... A. команды выполняются одна за другой в порядке их следования
15 Строка: readln (A); выполняет... A. ввод в программу значения переменной А
16 Y:=5; какой оператор выведет надпись Y=5? A. writeln ( ' Y = ' , Y ) ;
17 а:=2; b:=8; S:=а+b; После выполненных последовательно данных трех команд переменная S принимает значение равное ... A. 10
18 S:=7; S:=23; writeln (S); Какое значение будет выведено на экран? A. 23
19 S:=1; S:=S+5: Writeln (S/2); Что будет выведено на экране? A. 3
20 A:=2; B:=5: B:=B-A; S:=A+B; writeln (S); Что будет выведено на экран? A. 5
21 Для ввода данных в блок-схемах используют фигуру... A. параллелограмм
22 Для выполнения вычислительных действий в блок-схемах используют фигуру... C. прямоугольник
23 Определите результат работы фрагмента программы: writeln ( ' 5+5= ' , 5+5 ); A. 5+5=10
24 Действие оператора WRITELN - это... A. переход на новую строку
25 Сколько переменных нужно ввести для вычисления площади и периметра квадрата? A. одну
26 Найдите логически неверно записанную последовательность команд. те что имеют непонятные логические ходы A. writeln (S); A:=A*2; readln (A,B); S:=A+B; C. A:=A*2; readln (A,B); S:=A+B; Writeln (S); D. readln (A,B); S:=A+B; A:=A*2; writeln (S); 27 Как будут выведены значения: Writeln (A); Writeln (B); ? A. в столбик
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Длина последовательности: '); var a:=(SeqRandom(n-1,0,1)+(-1)).ToArray; // последовательность 0 и 1 a.Println; if a.Where(x->x>=0).Distinct.Count>1 then Writeln('Есть отличающиеся элементы') else Writeln('Все элементы равны') end.
Примеры Длина последовательности: 4 1 1 1 -1 Все элементы равны
Длина последовательности: 5 0 1 1 0 -1 Есть отличающиеся элементы
У комп'ютерному середовищі виконавець має-свої.алгоритми