Помогите безотлагательно!!!!!!ТестОписание разработки1. Обусловьте значение переменной k, после

Помогите безотлагательно!!!!!!
Тест
Описание разработки

1. Обусловьте значение переменной k, после исполненья куска программки:

n: = 'Обработка строк в Паскаль';

k: = length (n);

write (k);

Ответ: ________________________________

2. Обусловьте результат работы последующего куска программки:

n: = 'Обработка строк в Паскаль';

delete (n, 10, 8);

write (n);

Ответ: ________________________________

3. Обусловьте итог работы последующего куска программки:

n: = 'Обработка строк в Паскаль';

insert ('оч', n, 8);

write (n);

Ответ: ________________________________

4. Обусловьте итог работы следующего куска программы:

n: = 'Обработка строк в Паскаль';

k: = copy (n, 19, 7);

write (k);

Ответ: ________________________________

5. Обусловьте результат работы следующего фрагмента программы:

n: = 'Обработка строк в Паскаль';

k: = copy (n, 1, 1);

delete (n, 1, 20);

insert (k, n, 0);

delete (n, 6, 1);

write (n);

Ответ: ________________________________

6. Обусловьте значение переменной k, если

n: = 'Обработка строк в Паскаль';

for i: = 1 to length (n) do

if n[i] = 'а' then inc (k);

write (k);

Ответ: ________________________________

7. Обусловьте итог работы следующего куска программы:

n: = 'Обработка строк в Паскаль';

for i: = 1 to length (n) do

if n[i] = 'о' then n[i]: = ' ';

write (n);

Ответ: ________________________________



8. Обусловьте исходные значения переменных a и b, если поле исполнения куска программки программка вывела на экран Привет! Как дела? (без кавычек)?

c: = b + a;

insert (' Как ', c, 8);

write (c);

Ответ: ________________________________

9. Какую фразу можно записать в переменную x, чтоб после исполненья куска программки переменная kприняла значение 6? Можнонаписать пример.

k: = 10;

for i: = 1 to length (x) do

if x[i] = ' ' then dec (k);

write (k);

Ответ: ________________________________

10. Что будет выведено на экран после исполнения программки?

var

s: string;

i: integer;

begin

s:='S';

for i: = 1 to 3 do

s: = s + 'о';

write (s + 'S');

end.

Ответ: ________________________________

Esenija 2019-06-18 23:01:45

1) 27 2) Обработка Паскаль 3)Обработочка строк 4) Паскаль 5)Оскал 6)4 7)Обраб тка стр к в Паскаль 8) a:='дела?'; b:='Привет' 9) Сейчас с утра идет снег 10)SoooS