с Информатикой.
1)Задан массив X=[2, 4, 1,0,8,5], чему равно значение S после выполнения фрагмента программы?

S:= 0;
for k:=1 to N do begin
if x[k]>3 then
S:= S + X[k]
end;

2)Оператор:

for i:=1 to 20 do
if a[i]<>0 then writeln (a[i]);

выводит на экран:

Выберите один ответ:
a. цифру 0
b. положительные элементы массива а
c. ненулевые элементы массива а
d. отрицательные элементы массива а
3)Задан массив X[1..N] и фрагмент программы. Что вычисляет данная программа?

M:= X[1];
for k:=2 to N do begin
if x[k]>m then
M:= X[k]
end;

Выберите один ответ:
a. количество элементов массива, равных М
b. минимальное значение элементов массива
c. элемент массива, равный М
d. максимальное значение элементов массива
4)Задан массив X[1..N] и фрагмент программы обработки его. Что находит данный фрагмент программы?

S:= 0;
for k:=1 to N do begin
if x[i] mod 2=0 then
S:= S + 1
end;

Выберите один ответ:
a. Количество нечетных элементов массива
b. Количество четных элементов массива
c. Количество нулевых элементов массива
d. Сумму четных элементов массива

5)Выберите правильные варианты вывода элементов массива на печать в столбик (каждый элемент на новой строке).

Выберите один или несколько ответов:
a. for i:=1 to n do writeln(` a`,i,`=`,a[i]);
b. for i:=1 to n do write(a[i]);
c. for i:=1 to n do writeln(i);
d. for i:=1 to n do writeln(a[i]);

6)Задан массив X[1..N]. Какой оператор надо поставить вместо многоточия, чтобы найти в переменной S сумму всех элементов массива? Вводите ответ без пробелов.

S:= 0;
for k:=1 to N do begin
...
end;

Вікно налаштування об'єкта містить такі вкладки:  

Скрипти — область створення скриптів;  

Образи — область зміни вигляду об'єкта;  

Звуки — область, у якій можна додавати звуки до об'єкту.

 

У правій верхній частині робочого вікна розташовано Сцену. Саме на ній відбуваються всі події. На ній розташовують об'єкти, для кожного проекту добирають декорації (тло).

В правій нижній частині робочого вікна можна побачити усі об'єкти поточного проекту, їх назви.

Об'єктами і тлу можна задати вказівки. Вказівки-блоки розподілено на категорії (групи), кнопки виклику яких розташовано у верхній лівій частині вікна. Якщо натиснути кнопку, то у лівій нижній частині вікна можна побачити всі вказівки-блоки даної категорії. Цю частину називають контейнером блоків. Для того, щоб зібрати з окремих блоків сценарій (скрипт), потрібно перетягнути блоки в центральну частину робочого вікна на закладку Скрипти.

Для створення (малювання) об'єкта власноруч потрібно викликати вбудований графічний редактор, натиснувши кнопку  — Намалювати новий об'єкт.

(Вибравши Сцену у правій нижній частині програмного вікна, перейшовши на закладку Фони і натиснувши кнопку Імпортувати праворуч від слів: Новий фон,  отримати вікно діалогу Імпортувати фон.  

У цьому вікні вибрати категорію зображень, а серед них — потрібне зображення і натиснути кнопку Гаразд.

Створити новий об'єкт Квітка. Для цього натиснути кнопку  Намалювати новий об'єкт. У викликаному вікні Графічний редактор намалювати перший образ квітки — бутон. Потім натиснути кнопку Гаразд.)

(http://www.kievoit.ippo.kubg.edu.ua/kievoit/2012/scratch2/scratch2.html)

1. Площадь ромба можно определить по формуле



Microsoft qBASIC 1.0

DIM a AS DOUBLE, alpha AS DOUBLE, k AS DOUBLE, s AS DOUBLE
CLS
INPUT "a, alpha="; a, alpha
k = ATN(1) / 45
PRINT "S="; a ^ 2 * SIN(alpha * k)

2. Договоримся, что a≤b и c≤d. Если после ввода это не так, то меняем местами значения a,b и/или c,d.

Условие, при котором первый прямоугольник поместится во второй выглядит как a<c ∧ b<d

DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER, t AS INTEGER
CLS
INPUT "a,b,c,d"; a, b, c, d
IF a > b THEN
   t = a: a = b: b = t
END IF
IF c > d THEN
   t = c: c = d: d = t
END IF
IF a < c AND b < d THEN
   PRINT "Входит"
ELSE
   PRINT "Не входит"
END IF