Напишите П.л.и.з программу в турбо ПАСКАЛЕ

[XaHTeP]

1)Найдите все четырехзначные числа у которых сумма крайних цифры равна сумме средних цифр а само число делится на 6 и на 27

2)Дано натуральное число. Получите новое приписав к нему такое же число в обратном порядке (например, число 234 , результат 234432)

3)Факторион - такое натуральное число, которое равно сумме факториалов своих цифр. Например 145=1!+4!+5!=1+24+120. Определить является ли введенное трехзначное число факторионом.

[XaHTeP]

Program p1;
var n,S1,S2,N23:integer;
begin
for n:=1000 to 9999 do begin
S1 := (n div 1000) + (n mod 10);
N23 := (n mod 1000) div 10;
S2 := (N23 div 10) + (N23 mod 10);
if (S1 = S2) and (n mod 6 = 0) and (n mod 27 = 0) then
WriteLn(n);
end;
ENd.

[Mad_Cat]

Дано натуральное число. Получите новое приписав к нему такое же число в обратном порядке (например, число 234 , результат 234432)

var n,x:integer; begin Readln(n);X:=n;While X<>0 do begin N:=N*10+X mod 10;X:=X div 10;end;Writeln(n);end.

[XaHTeP]

Спасиб CAT

[XaHTeP]

Народ Напишите плз 3 заадчку

[madflyzero131]

XaHTeP ,ты из какой паралели?

[madflyzero131]

Сообщение от Mad_Cat

var n,x:integer; begin Readln(n);X:=n;While X<>0 do begin N:=N*10+X mod 10;X:=X div 10;end;Writeln(n);end.

тут лучше взять LONGINT

[Mad_Cat]

тут лучше взять LONGINT

да хоть INT64 берите

[Rin]

var ch, i , sum,k:integer;

function Fact( num : Integer) : Integer;
begin
if (num<=0) then
Fact := 1
else
Fact := num*Fact(num-1);
end;

begin
sum:=0;
readln(ch);
i:=ch mod 10;
sum:=sum+fact(i);
i:=ch mod 100;
i:=i div 10;
sum:=sum+fact(i);
i:=ch div 100;
sum:=sum+fact(i);
if sum=ch then writeln('yes') else writeln('no');
readln;
end.