Аникита
5 год назад
Две задачи на 50 поинтов . Pascal ABCЗадание первая. Даны цифры двух трёхзначных чисел abc и dxy где a,d - число сотен ;b,x - число десятков ;c,y - число единиц.Получить цифры цисла , которое является суммой двух трехзначных чисел.Вторая Задание.Дано целое число N .Надо определить является ли число палиндромом.
ОТВЕТЫ
Андриян
Oct 24, 2020
//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.
{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.
933
Смежные вопросы:
