Задание 15 Параграф 4.3 ГДЗ Босова 8 класс 2023 (Информатика)

Задача

var
st, st1, st2, st3: string;
k: integer;
begin
st := ‘ИНФОРМАТИКА’;
st1 := copy(st, 3, 5);
st2:=copy(st,3,1)+copy(st,1,1)+copy(st,5,3);
st3:=copy(st,6,2)+copy(st,10,1);
k:=length(st1)+length(st2)+length(st3);
writeln(st1,’ ‘,st2,’ ‘,st3);
write(‘Общее количество символов: ‘,k)
end.
Окно вывода
ФОРМА ФИРМА МАК
Общее количество символов: 13

Подробный ответ

Составим нужные слова из строки $$\text{ИНФОРМАТИКА}$$ с помощью функции copy.

$$\text{ФОРМА} = copy(st, 3, 5)$$

$$\text{ФИРМА} = copy(st, 3, 1) + copy(st, 1, 1) + copy(st, 5, 3)$$

$$\text{МАК} = copy(st, 6, 2) + copy(st, 10, 1)$$

Затем найдём общее количество символов:

$$k = length(st1) + length(st2) + length(st3) = 5 + 5 + 3 = 13$$

var
  st, st1, st2, st3: string;
  k: integer;
begin
  st := ‘ИНФОРМАТИКА’;
  st1 := copy(st, 3, 5);
  st2 := copy(st, 3, 1) + copy(st, 1, 1) + copy(st, 5, 3);
  st3 := copy(st, 6, 2) + copy(st, 10, 1);
  k := length(st1) + length(st2) + length(st3);
  writeln(st1, ‘ ‘, st2, ‘ ‘, st3);
  write(‘Общее количество символов: ‘, k)
end.