Язык C:
m=0; //кол-во отриц. элементов
proizv=1; //произвед отриц элементов
for(i=0; i<9; i++)
{
if (b[i]<0)
{ m++;
proizv=proizv*b[i];
}
}
а) Опечатка? Там просто Str, а не Str1 или Str2. В любом случае, функция возвращает длину строки, т.е. для Str1 k = 14, для Str2 k = 3
б) Возвращает 4 символа начиная с 5-го из строки Str1, s = 'su r'
в) Удаляет из Str1 4 символа начиная с 3-го, Str1 будет = 'v rodilas'
г) Вставляет Str2 в Str1 начиная с третьего сивола, Str2 не изменится, Str1 будет = 'v llesesu rodilas'
д) Возвращает позицию Str2 в Str1, n = 3
Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
//PascalABC.NET 3.1 сборка 1200
begin
var s:=0.0;
var v := 0.0;
read(s,v);
writeln(2*s+v);
end.