Что используется для имен переменных в паскале? 1) слова, состоящие из . букв. 2) зарезервированные (служебные) слова. 3) слова, состоящие из букв. 4) слова, состоящие из цифр и латинских букв. 5) слова, состоящие из латинских и букв.
Var s : string; i, j, n : integer; f : boolean; begin readln(s); n : = length(s); i : = 1; j : = n; f : = false; while (i < = j) do begin if(s[i] = s[j]) then f : = true else f : = false; i : = i + 1; j : = j - 1; if not f then break; end; if f then write('палиндром') else write('не палиндром'); end.
Присакарь520
14.05.2022
Немного другое решение var s : string; i, j, n : integer; f : boolean; begin readln(s); n : = length(s); i : = 1; j : = n; f : = false; while (i < = j) do begin if(s[i] = s[j]) then f : = true else f : = false; i : = i + 1; j : = j - 1; if not f then break; end; if f then write('палиндром') else write('не палиндром'); end.