Люди добрые,)дана строка. если она начинается на 'abc',то заменить их на 'www',иначе добавить в конец строки 'zzz'. на паскале. заранее )

Var s: string; begin writeln('введите строку: '); readln(s); if length(s)> =3 then     if (s[1] = 'a')and(s[2] = 'b')and(s[3] = 'c') then           begin           s[1]: ='w';           s[2]: ='w';           s[3]: ='w'           end     else s: =s+'zzz' else s: =s+'zzz'; writeln(s) end.

Var s: string; begin   read(s);   if copy(s, 1, 3) = 'abc' then     s : = 'www' + copy(s, 4, length(s) - 3)   else     s : = s + 'zzz';   write(s); end.

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.

-всех планов

-планов , на которых ровно 4 хода

- планов на которых есть ход к коту

-планов на которых не 4 хода

-планов на которых нет ходов к коту

-планов на которых 4 хода и есть ход к коту

- планов на которых 4 хода и нет ходов к коту

 

на пересечении круга и квадрата - мауси и котауси

в квадрате - джек

в круге - ник

в прямоугольнике - пухлик

 

 

ответ на вопрос: план джека