помогите кто знает pascal abc

Question

помогите кто знает pascal abc

тимур гумеров Знаток (344), закрыт 12 лет назад

помогите кто знает язык программированния паскаль решить и написать программу для задачи . является ли пилиндромом заданое четырех значное число

Answer 1

uses crt;
var a,b,c:word;
begin
write('Введите число: ');readln(a);
b:=0;
c:=a;
while c>0 do begin
b:=b*10+c mod 10;
c:=c div 10;
end;
if a=b then write('Да') else write('Нет')
end.

Answer 2

ANONYMOUS Ученик (234) 12 лет назад

я знаю

Answer 3

есть такой вариант
{ищет палиндром пока не найдет}
uses crt;
var
t: boolean;
a, b, c, d: char;
begin
repeat
writeln('введите четырех значное число');
read(a, b, c, d);
t:= (a=d) and (b=c);
writeln(t);
until t=true
end.