Вычисли число строк в таблице, считая шапку таблицы.

число переменных в выражении — 3

206

304

Посмотреть ответы 1

Ответы на вопрос:

DedMazaj

Информатика

4,6(28 оценок)

Program test; var i,n,k,s1,es,al: integer; s: string; begin write('введите кол-во повторений: '); readln(n); write('введите строку: '); readln(s); repeat inc(k); for i: =length(s) downto 1 do s: =s+s[i]; for i: =1 to length(s) do if i mod 2 = 0 then begin es: =strtoint(s[i])+1; delete(s,i,1); insert(inttostr(es),s,i); end; writeln(k,') ',s); until k=n; for i: =1 to length(s) do if strtoint(s[i]) mod 2 = 1 then inc(al); writeln('кол-во нечетных чисел: ',al); end.