:написать программу, которая определяет, является ли введенное слово палиндромом ("перевертышем"), например: "шалаш", "арозаупаланалапуазора", и выводит на экран ответ "да" или "нет".

223

232

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

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

lourln

Информатика

4,5(62 оценок)

Немного другое решение 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.

adadad2

Информатика

4,7(75 оценок)

Program aaa; var s,s1: string; i: longint; begin writeln('введите строку'); read(s); for i: =1 to length(s) do s1: =s[i]+s1; if s=s1 then writeln('да') else writeln('нет') end.

horarharry

Информатика

4,4(45 оценок)

Const n=10; m=3; var a: array[1..n,1..m] of integer; i,j,s,k: integer; p: real; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(81)+20; write(a[i,j]: 4); end; writeln; end; s: =0; for i: =1 to n do for j: =1 to m do s: =s+a[i,j]; p: =s/n*0.8; writeln('p = ',p: 5: 2); writeln('зачислены: '); k: =0; for i: =1 to n do begin s: =0; for j: =1 to m do s: =s+a[i,j]; if s> =p then begin write(i,' '); k: =k+1; end; end; writeln; writeln('k = ',k); end. пример: 76 62 50 37 73 22 61 99 36 22 69 38 27 82 22 93 56 37 79 84 51 83 31 60 61 39 95 70 70 100 p = 142.80 зачислены: 1 3 6 7 8 9 10 k = 7