Две задачки на 50 баллов . Pascal ABCЗадача первая. Даны числа
Две задачи на 50 баллов . Pascal ABC
Задачка 1-ая. Даны цифры 2-ух трёхзначных чисел abc и dxy где a,d - число сотен ;b,x - число 10-ов ;c,y - число единиц.Получить числа цисла , которое является суммой двух трехзначных чисел.
2-ая задача.Дано целое число N .Надобно найти является ли число палиндромом.
Olga Kanaki
В первом задании входные данные 6 чисел (a, b, c...)?
Илья Рубейко
Пример
Амина Схабицкая
a=5
Jelvira Rizanovich
b=4
Анна Шахвердян
c=7
Полина Тагамлицкая
Понял
2 ответа
Владик Матров
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 Clt;gt;0 do
Begin
B:=B*10+(C mod 10);
C:=C div 10;
End;
if A=B then WriteLn(A - ' палиндром')
else WriteLn(A,' не является палиндромом')
End.
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 Clt;gt;0 do
Begin
B:=B*10+(C mod 10);
C:=C div 10;
End;
if A=B then WriteLn(A - ' палиндром')
else WriteLn(A,' не является палиндромом')
End.
Яна Браславцева
//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], ngt;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], ngt;999? s[4]:' ')
end.
2
begin
var s:=readstring('N =');
write (s=s.Inverse? 'Палиндром':'Не палиндром')
end.
Ruslan Kubarskij
Спасибо огромное . Только вы учтите то что я в 8 классе и такие коды не изучали
Елизавета Рейтаровская
Ок
Роман Синюшна
Вообщем, технически второе - не правильно, т.к в задании дано целое число, а не строка
Катенька Авсинеева
Да Вы что?
Данька
Выходные данные гарантированно корректны, тогда чем Вас не нравится мое решение?
Егор Пллятыкин
Всё нравится , спасибо!
Любовь Хлоплянкина
//FPC 2.6.41vari, c: integer;a, b: array[1..3] of byte; beginwriteln ('Числа первого цисла: ');for i:=1 to 3 do readln (a[i]);writeln ('Числа второго цисла: ');for i:=1 to 3 do readln (b[i]);write (a[1]+b[1]+10*(a[2]+b[2])+100*(a[3]+b[3]));end.2varn, n1, n2: integer;beginwrite ('n ='); readln (n);n1:=n; n2:=0;repeatn2:=n mod 10 + n2*10;n:=n div 10;until n=0;if n2=n1 then write ('Полиндром') else write ('Не полиндром');end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов