Написать программу которая определяет число полиндром

Паскаль

(ну или хотя бы идейку подкиньте)

Question

Информатика

Полинария

17 мая, 04:09

Написать программу которая определяет число полиндром

Паскаль

(ну или хотя бы идейку подкиньте)

+5

Ответы (1)

Знаете ответ на вопрос?

Неонила · Answer 1

Program palindrom;

Uses crt;

var s: string;

i, f: byte;

begin

clrscr;

write ('String: ') ;

readln (s) ;

f : = 0;

for i : = 1 to length (s) div 2 do if s[i] s[length (s) - i+1] then begin writeln ('No palindrome') ;

f : = 1;

break

end;

if f = 0 then write ('Palindrome') ;

readln

end.

Написать программу которая определяет число полиндромПаскаль(ну или хотя бы идейку подкиньте)

Написать программу которая определяет число полиндром

Паскаль

(ну или хотя бы идейку подкиньте)