Дано число является ли оно палиндромом в pascal. если можно с объяснением каждого шага.

157

399

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

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

75643

Информатика

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

//pascal abc.net версия 2.2 сборка 790 var s: string; i,s1: integer; begin; readln(s1); //вводим число str(s1,s); for i: =1 to length(s) div 2+length(s) mod 2 do {цикл от начала и до середины/центра в зависимости от чётности} begin; if s[i]< > s[length(s)+1-i] then {если 1 символ не равен последнему, второй-предпоследнему и т.д.} begin; writeln('не палиндром'); exit; //если это условие хоть раз верно-программа завершается end; end; writeln('палиндром'); //если условие не разу не оказалось верным end.пример ввода: 121пример вывода: палиндром

Anastasyu120

Информатика

4,8(17 оценок)

Function ispali(a : longint) : boolean; var b : longint; begin b: =1; while b< a do b: =b*10; b: =b div 10; if a> 9 then ispali: =((a div b)=(a mod 10)) and ispali(a mod b div 10) else ispali: =true; end; var n : longint; begin readln(n); writeln(ispali(n)); end.