Две задачи на 50 баллов . Pascal ABC Задача первая. Даны цифры двух трёхзначных чисел abc и dxy где a,d - число сотен ;b,x - число десятков ;c,y - число единиц.Получить цифры цисла , которое является суммой двух трехзначных чис...

Две задачи на 50 баллов . Pascal ABC Задача первая. Даны цифры двух трёхзначных чисел abc и dxy где a,d - число сотен ;b,x - число десятков ;c,y - число единиц.Получить цифры цисла , которое является суммой двух трехзначных чисел. Вторая задача.Дано целое число N .Надо определить является ли число палиндромом.
Гость
Ответ(ы) на вопрос:
Гость
//PascalABC.Net 3.2 {1} begin var n:=100*readinteger('a =')+10*readinteger('b =')+readinteger('c =')+ 100*readinteger('d =')+10*readinteger('x =')+readinteger('y ='); var s:=n+''; Print(s[1], s[2], s[3], n>999? s[4]:' ') end. {2} begin var s:=readstring('N ='); write (s=s.Inverse? 'Палиндром':'Не палиндром') end.
Гость
Var a,b,c,d,x,y:byte; Begin Write('a = ');ReadLn(a); Write('b = ');ReadLn(b); Write('c = ');ReadLn(c); Write('d = ');ReadLn(d); Write('x = ');ReadLn(x); Write('y = ');ReadLn(y); WriteLn((a+d)*100+(b+x)*10+c+y); End. Var A,B,C:integer; Begin Write('A = ');ReadLn(A); C:=A; While C<>0 do    Begin    B:=B*10+(C mod 10);    C:=C div 10;    End; if A=B then WriteLn(A - ' палиндром') else WriteLn(A,' не является палиндромом') End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы