Дана матрица размера m × n и целые числа k1 и k2 (1 ≤ k1 < k2 ≤ m). поменять местами строки матрицы с номерами k1 и k2. решить в pascal. перед тем как выложить, проверить свое решение.

114

467

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

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

salatinabbasova

Информатика

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

var s: string; i: integer; begin write('s = '); readln(s); for i : = 1 to length(s) do if s[i] < > s[length(s) - i + 1] then begin writeln('no'); readln; exit; end; writeln('yes'); readln; end.

//вторая программа

var s: string; i, counta, counte: integer; begin counta : = 0; counte : = 0; write('s = '); readln(s); for i : = 1 to length(s) do if s[i] = 'a' then inc(counta) else if s[i] = 'e' then inc(counte); if counta > counte then writeln('a > e') else if counta < counte then writeln('a < e') else writeln('a = e'); readln; end.