1.Выберите процедуру, которая преобразовывает число в строку

2.Определите, что будет выведено на экран после выполнения программы:
var t:string; n, k:integer;
begin
t:=‘мама’;
n:=length(t);
for var i:=1 to n-1 do
if copy(t,i,2)=‘ма’ then
begin
delete(t,i,2);
insert(‘па’,t,i);
end;
writeln(t);
end.
Ответ:

Правильный ответ: папа

3.Определите, что будет выведено на экран после выполнения программы:
var st: string;
n, k: integer;
begin
st:=‘золотопромышленник’;
n := length(st);
k := 0;
for var i := 1 to n do
if st[i] = ‘о’ then k := k + 1;
writeln( k );
end.
Ответ:

Правильный ответ: 4

4.Определите, что будет выведено на экран после выполнения программы:
var a1: integer;
s1: string;
begin
a1 := 2456;
s1 := IntToStr(a1);
s1 := s1 + ‘1’;
writeln(s1);
end.
Ответ:

Правильный ответ: 24561

5.Определите, что будет выведено на экран после выполнения программы:
var a1:integer;
s1: string;
begin
s1 := ‘2456’;
a1 := StrToInt(s1);
a1 := a1 + 2;
writeln(a1);
end.
Ответ:

Правильный ответ: 2458

6.Определите, что будет выведено на экран после выполнения программы:
var t, sim: string;
n, code, s, cifra: integer;
begin
t:=‘123’;
n:=length(t);
s:=0;
for var i:=1 to n do
begin
sim:=copy(t,i,1);
val(sim, cifra, code);
s:=s+cifra;
end;
writeln(s);
end.
Ответ:

Правильный ответ: 6

7.Дана программа, в которой с клавиатуры запрашивается строка из двух слов, разделенных одним пробелом.
var s, s1, s2: string; i,n: integer;
begin
writeln(‘Введите строку’);
readln(s);
n:=length(s);
i:=pos(‘ ‘, s);
s1:=copy(s, 1, i);
s2:=copy(s, i+1, n-i);
s:=s2 + ‘ ‘ + s1;
writeln(s);
end.
Каков результат работы данной программы?

8.Определите, что будет выведено на экран после выполнения программы:
var a1, a2, c1, c2 :integer;
s1, s2: string;
begin
s1 := ‘24’; s2 := ‘42’;
val(s1, a1, c1);
val(s2, a2, c2);
writeln(a1+a2);
end.
Ответ:

Правильный ответ: 66

9.Определите, что будет выведено на экран после выполнения программы (cлова в строке st разделены одним пробелом).
var st: string;
n, k: integer;
begin
st:=‘В строковых переменных легко производить такие операции, как удаление, вставка или замена символа.’ ;
n := length(st);
k := 1;
for var i := 1 to n do
if st[i] = ‘ ‘ then k := k + 1;
writeln( k );
end.
Ответ:

Правильный ответ: 13

10.Определите, что будет выведено на экран после выполнения программы.
Все данные запишите в одну строчку через один пробел:
var a:string;
n: Integer;
begin
a:=‘27,6 54,7 54,1’;
n:=length(a);
for var i:=1 to n do
if (a[i]=‘,’) then a[i]:=‘.’;
writeln(a);
end.
Ответ:

Правильный ответ: 27.6 54.7 54.1