Страницы 168-173 параграф 4 3 вопрос / задание 15, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

Разработайте и отладьте программу, которая из слова ИНФОРМАТИКА получает слова ФОРМА, ФИРМА, МАК и подсчитывает общее количество символов в этих словах.

program Z_15_3;

var

  s, s1, s2, s3: string;

  k: integer;

begin

  s := 'ИНФОРМАТИКА';

  s1 := copy(s, 3, 5);

  s2:=copy(s,3,1)+copy(s,1,1)+copy(s,5,3);

  s3:=copy(s,6,2)+copy(s,10,1);

  k:=length(s1)+length(s2)+length(s3);

  writeln(s1,' ',s2,' ',s3);

  write('k=',k)

end.

Окно вывода:

ФОРМА ФИРМА МАК

k=13