Frostbite

Люди добрые помогите. До понедельника нужно решить задания. Горю!


1. Вычеркните записи, которые не могут служить идентификаторами

- AA_A_A
- A%
- A=B
- 567
- 'abBA'
- DIV
- [CRC]

2. Выберите фрагменты которые могут быть работающими:

A) BEGIN
BEGIN
WRITELN('PROGRAM ?')
END.

B) BEGIN
WRITELN('PROGRAM ?')

C) PROGRAM O_O
BEGIN
WRITELN('PROGRAM ?')
END.
VAR;

D) PROGRAM O_O
BEGIN
WRITELN('PROGRAM ?')
END.


3. Имеется файл, содержащий фамилии студентов группы. Составьте программу которая упорядочивает его так, чтобы фамилии располагались в алфавитном порядке.

4. Составьте программу, которая печатает числа a,b,c в порядке возрастания


5. Вычеркните типы данных, которые не являются целочисленными
- WORD
- Longint
- EXTENDED
- Shortint
- BYTE
- SINGLE

6. Найдите ошибку в программе, которая перемножает натуральные числа от 1 до 20 и выводит на экран результат расчета

VAR i,S:INTEGER
BEGIN
S:=0
FOR i=I TO 20 DO S:=S*i
WriteLn('Произведение чисел от 1 до 20 равно:',S);
END.

7. Заполните таблицу, подписав результаты выполнения операций.

Выражение - Результат

['A','B']+['A','D'] -
['A']*['A','B','C'] -
['A','B','C']-['A','B'] -
['A','B'']=['A','C'] -
['A','B'']<>['A','C'] -
['C','D'']>=['A'] -

8. Перечислите типы данных, определяемые пользователем, в приведенном ниже описании типов и переменных.

type
month = (jan, feb, march, apr, may);
com = array [month] of word;
spri = array [march:.may] of word;
date = record year: word; m : 1..12; day : 1.. 31 end;
digits = set of 0..9;
var
c: com;
n, m: integer;
a, b, d: real;
s : spri;
alfa : array [‘a’..’z’] of char;
switch : array [boolean] of byte;
u: char;

9. В пределах действия описания переменной setvar присвоено значение [red, green]

Type
colors=(red, green, blues);
paint=set of colors;
var
setvar: paint;
….
setvar:= [red, green];

Что получается в результате операций сравнения?

a) setvar = [red..blue] – [blue]
b) setvar = [];
c) setvar <=[red..succ(green)];
d) setvar >=[blue..green]
e) setvar * [red] = [red]
f) green in setvar;

Пожалуйста помогите!