Ребят информатика 9 класс,в рабочей тетради,8 урок,задание 8
1
var s, t: string;
begin
s:='монитор';
writeln(length(s));
writeln(pos('o',s));
delete(s, 3,2);
writeln(s);
2
t:=copy(s, 3,3);
insert('т',t,4);
writeln(t);
t[1]:=UpCase(t[1]);
writeln(t);
end.

Question

Информатика: Ребят информатика 9 класс,в рабочей тетради,8 урок,задание 8 1 var s, t: string; begin s:= монитор ; writeln(length(s)); writeln(pos( o ,s)); delete(s, 3,2); writeln(s); 2 t:=copy(s, 3,3); insert( т ,t,4); writeln(t); t[1]:=UpCase(t[1]); writeln(t); end. ​

veragusak1994 · Accepted Answer

Var a,b,c,angA,angB,angC,cs: real;     s: string; begin   write( длины сторон через пробел:   );   readln(a,b,c);   if (a+b c) and(a+c b) and (c+b a) then   begin     cs:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);     angC:=360*ArcCos(cs)/(2*pi);     writeln( угол С = ,angC:4:2);     cs:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c);     angB:=360*ArcCos(cs)/(2*pi);     writeln( угол B = ,angB:4:2);     angA:=180-angB-angC;     writeln( угол A = ,angA:4:2);     if (angA 90) and (angB 90) and (angC 90) then        s:= треугольник...

MOGZ ответил