Написать программу в паскале дано натуральное число n (n< 9999). а)сколько цифр в числе n? б)чему равна сумма его цифр? в)найти последнюю цифру числа. г)найти первую цифру числа. д ) найти предпоследнюю цифру числа ( в предположении , что n> 10). е)дано число m. найти сумму m- последних цифр числа n. ж)выяснить, входит ли цифра 3 в запись числа n. з)поменять порядок цифр числа n на обратный. и)переставить последнюю и первую цифры числа n.
281
495
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin var s: =readinteger('n=').tostring.joinintostring(''); writeln('цифр в числе- ',s.length); writeln('сумма цифр- ',s.select(d-> integer.parse(); writeln('последняя цифра- ',s.last); writeln('первая цифра- ',s.first); writeln('предпоследняя цифра- ',s[s.length-1]); var m: =readinteger('m='); write('сумма ',m,' последних цифр числа- '); writeln(s.skip(s.length-m).select(d-> integer.parse(); write('цифра 3 в запись числа '); if pos('3',s)> 0 then writeln('входит') else writeln('не входит'); writeln('число в обратном порядке- ',s.reverse.joinintostring('')); writeln('перестановка первой и последней цифр- ', s.last+copy(s,2,s.length-2)+s.first); end. тестовое решение: n= 1063 цифр в числе- 4 сумма цифр- 10 последняя цифра- 3 первая цифра- 1 предпоследняя цифра- 6 m= 2 сумма 2 последних цифр числа- 9 цифра 3 в запись числа входит число в обратном порядке- 3601 перестановка первой и последней цифр- 3061
A,b,c. потому что компилятор не ругается. а так тебе уже выше написали > > сравни типы данных (целое - не целое), по порядку + где var (передача по ссылке) там обязательно должна передаваться
Популярно: Информатика
-
Savosin22909.05.2020 09:12
-
vladimer9604.12.2020 21:41
-
Arhci4334516.05.2020 12:40
-
rzhanova0005.02.2020 02:04
-
alekszhirnovp06n4r23.03.2021 03:59
-
imail9124.03.2022 22:26
-
molik11110507.01.2020 04:04
-
привет94822.06.2023 01:56
-
andreuss200603.10.2022 13:13
-
dfghngh02.12.2021 07:06