Здесь всё можно сделать через копирование части слова и конкатенации (склеивания) частей, например, так:
program z;
var str:string;
begin
str:='ЦВЕТОВОДСТВО';
writeln(copy(str,1,4)); {копировать из строки, начиная с 1 символа, 4 буквы}
writeln(copy(str,5,4)); {копировать из строки, начиная с 5го символа, 4 буквы}
writeln(copy(str,8,1)+copy(str,3,2)+copy(str,9,4));
writeln(copy(str,6,3)+'А');
end.
Ответ:
1) 28
Т.к.а> b и b>c то идеи по первой ветке
2а+b+c=2*9+8+2=28
2)
Var Х,у:real;
Begin
Read(x);
If x<=5 then
Y:=x*x
Else y:=sqrt(25*x);
Write(y);
End.
A = -5
A>0 ⇒ ЛОЖЬ
A<0 ⇒ ИСТИНА
A = -3*A = -3*-5 = 15
Ответ: 15
25*32=750 символов на странице
750*32=24000 символов всего
24000*8=192000 бит