program foo;
var
s: string[12];
s1: string[4];
begin
s := 'ТЕСТИРОВАНИЕ';
s1 := XXXXX( Copy(s, 10, 2), Copy(s, 8, 2) );
write(s1)
end.
S=((A+B)*H)/2;Где а и б основания, а Н высота. Пусть основание х, значит, другого 0.6х. Подставляем.(х+0.6х)*8/2=320.
x=80/1.6=50. 50см это одно, а 30см другое.Если ОН-это высота.
Так, для начала узнаем сколько всего символов в тексте, для этого перемножаем количество страниц, количество строк и символов в строке 150*35*50 = 262500 (общее количество символов), потом переводим скорость в байты 19200/8=2400. И делим 262500 на 2400 и получаем 109,375, так как ответ нужен целым числом, округляем и получаем 110. Надеюсь помог)
Sub algoritm()
a = Cells(2, 3)
b = Cells(3, 3)
c = Cells(4, 3)
s = Sqr(3 * c ^ 3 + b ^ 5) / (b - c)
k = Sqr(s) + Abs(-a * b * c)
y = s + 3 * k - s ^ 4 / (b + c)
Cells(5, 3) = y
<span>End Sub
</span>