Строка t равна “действительность”. Найти значение: copy(t, 14, 2)+copy(t, 6, 1)+copy(t, 13, 1)+copy(t, 10, 1); copy(t, 6, 2)+ co
Алекс221
1. стволвид
2.
var
t: string;
begin
t := 'ДЕЙСТВИТЕЛЬНОСТЬ';
WriteLn (Copy (t, 1, 7) + Copy (t, 2, 1));
WriteLn (Copy (t, 4, 1) + Copy (t, 6, 2) + Copy (t, 1, 2) + Copy (t, 8, 4));
WriteLn (Copy (t, 1, 2) + Copy (t, 10, 1) + Copy (t, 13, 1));
end;
1)спам
2)программа
3)сеть
4)атака
Выделенное слово - "пост"(то есть ответ №2).
B) power(4, 2.5) + sqrt(1148.25 - power(1.1, 4)) / (156*cos(25*pi/180) + 2.6)
c) 148/abs(2.6 - power(1.4, 3)) + 18.1
2. √(ab) + 2a
---------------
b^2 + 2.3
3. var a: integer, V: integer
BEGIN
write ('Vvedite rebro a'); readln (a);
V = a*a*a;
writeln ('Ob'em kuba V = ', V);
END.
Вот это наверно) Если менять числа, значение площади меняется. Только нужно подбирать специальные числа, чтоб под квадратным корнем не было отрицательного числа)