Две задачи на 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.
Не нашли ответ?
Похожие вопросы