В результате выполнения программы:
VAR ST: STRING; A: CHAR; L, i : INTEGER;
BEGIN
ST:=’СОВРЕМЕННАЯ ГУМАНИТАРНАЯ АКАДЕМИЯ‘;
L:= LENGTH (ST); A:=’ ’; {А присвоить пробел}
FOR i := 1 TO L DO
IF ST[i] = A THEN WRITE(‘–‘) ELSE WRITE(ST[i])
END.
будет выведено на экран
(*ответ*) СОВРЕМЕННАЯ–ГУМАНИТАРНАЯ–АКАДЕМИЯ
сообщение об ошибке
СОВРЕМЕНН–Я ГУММ–НИТ–РН–Я –К–ДЕМИЯ
СОВРЕМЕННаЯ ГУМаНИТаРНаЯ аКаДЕМИЯ
В результате выполнения программы:
var m : set of char; i, k, n : integer;
st : string;
begin
k := 0; m := [‘а’,’е’,’и’,’о’,’у’,’ы’,’э’,’ю’,’я’];
st:=’Университет‘;
n:= length (st);
for i := 1 to n do if st[i] in m then k := k +1;
writeln(k);
end.
на экран будет выведено
(*ответ*) 4
5
3
11
В результате выполнения программы:
var St : string;
i, k : integer;
begin read(St); k := 0;
for I := 1 to length(St) do
if not (St[i] in [‘0’..’9’]) then k := k+1;
end.
будет определено(а)
(*ответ*) количество символов St, не являющихся цифрами
количество цифр, входящих в St
сумма цифр, входящих в St
множество цифр, входящих в St
Имеется описание: TYPE Anketa = RECORD
Fio, Adress : STRING[50];
Group : STRING[6];
Kurs : 1..5;
END;
VAR : Student : Anketa;
Правильные операторы присваивания:
(*ответ*) Student.Fio := ’Петров П.П.’
(*ответ*) Student.Group := ‘ДИН-06’;
Kurs.Student := 1;
Fio.Student := ’Иванов И.И.’;
Anketa. Group := ‘ОИ-306’;
Anketa. Kurs :=4;
Имеется описание: TYPE Anketa = RECORD
Fio, Adress : STRING[50];
Group : STRING[6];
Kurs : 1..5;
END;
VAR : Student : Anketa;
В результате выполнения оператора : Student.Kurs := ‘5’ возникнет ошибка, так как
(*ответ*) смешаны типы переменных
неправильно записано имя компоненты записи
неверно определен записной тип
к компоненте записи нельзя обращаться в операторе присваивания
Имеется описание: TYPE Anketa = RECORD
Fio, Adress : STRING[50];
Group : STRING[6];
Kurs : 1..4;
END;
VAR : Student : Anketa
Правильные операторы вывода:
(*ответ*) WITH Student DO BEGIN WRITELN(Fio); WRITELN(Group) END;
(*ответ*) WRITELN(Student.Fio); WRITELN(Student.Group);
WRITELN(Fio); WRITELN(Group);
WRITELN(Anketa.Fio); WRITELN(Anketa.Group);
Имеется описание: TYPE List = RECORD
n : INTEGER;
fio, adres : STRING[50];
group : STRING[6];
END;
VAR Anketa : List;
Переменная Anketa имеет _ поля
(*ответ*) 4
3
5
1