1 . Б
2. А
ответы точно правильные!
Здесь всё можно сделать через копирование части слова и конкатенации (склеивания) частей, например, так:
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.
Sub ex7()
m = CInt(InputBox("m="))
n = CInt(InputBox("n="))
y = 0#
For k = 1 To 25
y = y + k ^ 2 / m + k ^ 3 / 2
Next k
z = y * (y - 4) + 0.02 * n
MsgBox "z=" + CStr(z)
End Sub