var w : set of byte; k : byte;
begin
w := [ ];
k:= 0;
while k <>777 do
begin
readln (k);
w : = w+[k];
end;
end.
В результате выполнения программы будет
(*ответ*) сформировано множество целых положительных чисел
найдена сумма введенных чисел
определено количество введенных чисел, не равных 777
найдена сумма введенных чисел, не равных 777
В приведенном фрагменте:
for i := 1 to 3 do
for j := 1 to 4 do read (a[j , i])
элементы массива вводятся
(*ответ*) по столбцам
по строкам
неправильно
в произвольном порядке
В результате выполнения программы:
Var St, Ss: string; P: byte;
Begin
St := ‘экзамен’;
Ss := ‘зам’;
P := Pos (St,Ss); Writeln (P);
End.
на экран будет выведено
(*ответ*) 3
7
0
2
В результате выполнения программы:
Var St, Ss: string; Q: byte;
Begin
St := ‘экзамен’;
Ss := ‘мен’; Q := Pos (St,Ss); Writeln (Q);
End.
на экран будет выведено
(*ответ*) 5
7
0
4;
В результате выполнения программы:
Var St: String; A, B: Char; K, i : Integer;
begin
St:=’ Ура. Ура. Начались каникулы. ‘;
K:= length (st); A:=’.’; B:=’!’;
for i := 1 to (K-1) do
if st[i] = A then write(B) else write(St[i])
end.
будет выведено на экран
(*ответ*) Ура! Ура! Начались каникулы.
Ура! Ура! Начались каникулы!
сообщение об ошибке
Начались каникулы!
В результате выполнения программы:
Var St: String; A, B: Char; K, i : Integer;
begin
St:=’ Ура. Ура. Начались каникулы. ‘;
K:= length (st); A:=’.’; B:=’!’;
for i := 1 to K do
if st[i] = A then write(B) else write(St[i])
end.
будет выведено на экран
(*ответ*) Ура! Ура! Начались каникулы!
Ура. Ура. Начались каникулы.
сообщение об ошибке
Ура! Ура!
В результате выполнения программы:
Var St: String; A: Char; i : Integer;
Begin
St:=’ Ура! Я сдал экзамен!‘;
A:=’ ’;{А присвоить пробел}
for i := 1 to length (St) do
if (St[i] = A) and (St[i+1] = A) then delete (St,i+1,1)
end.
будет выведено на экран
(*ответ*) Ура! Я сдал экзамен!
Ура! сдал экзамен!
Ура! Я сдал !‘;
Ура!
В результате выполнения программы:
VAR ST: STRING; A: CHAR; K, L, i : INTEGER;
BEGIN
ST:=’Современная гуманитарная академия‘;
K:=1;
L:= LENGTH (ST); A:=’ ’; ;{А присвоить пробел}
FOR i := 1 TO L DO
IF ST[i] = A THEN K:=K+1;
WRITELN(K);
END.
будет выведено на экран
(*ответ*) 3
2
6
0
В результате выполнения программы:
Var St: String; a: Char; k, l, i : Integer;
Begin
St:=’Современная гуманитарная академия‘;
k:=1;
l:= length (St); a:=’ ’; ;{a присвоить пробел}
for i := 1 to l do
if St[i] = a then k:=k+1;
Writeln(k);
End.
будет найдено количество _ в строке St
(*ответ*) слов
пробелов
букв «а»
символов