Ответы на вопрос:
//pascalabc.net //версия 3.3, сборка 1634 begin write(abs(readinteger).tostring.select(x-> x.todigit).sum); end.
Program chisla; uses crt; var a,b,c,d : integer; begin writeln('введите трехзначное число: '); readln(a); if (a< 100) or (a> 999) then writeln('введено не трехзначное число')else beginb: =a div 100; c: =(a-(b*100)) div 10; d: =a-(b**10); writeln('сумма цифр этого числа равна ',b+c+d); endend.
// pascalabc.net 3.0, сборка 1128 uses system.text.regularexpressions; begin var s: =' - 32 / - 21 '; s: =regex.replace(s,'\s',''); var a: =regex.matches(s,'(-{0,1}\d+)|[\+\-\*/]'); var n: =a.count; var x,y: integer; var c: char; case n of 3: begin x: =strtoint(a[0].tostring); y: =strtoint(a[2].tostring); c: =a[1].tostring[1] end; 2: begin x: =strtoint(a[0].tostring); var s1: =a[1].tostring; c: =s1[1]; s1[1]: ='0'; y: =strtoint(s1) end; else begin writeln('недопустимое выражение'); exit end end; writeformat('{0} {1} {2} = ',x,c,y); case c of '+': writeln(x+y); '-': writeln(x-y); '*': writeln(x*y); '/': writeln(x/y) end end. тестовое решение: -32 / -21 = 1.52380952380952 // pascalabc.net 3.0, сборка 1128 begin var s: ='4km-549_ffb)5)6'; var t: =s.where(x-> x in ['0'..'9']).joinintostring(''); var n: int64; if trystrtoint64(t,n) then writeln(2*n) else writeln('не удалось выделить число') end. тестовое решение: 909912
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
xxxxxxxxxxxxxxx22824.05.2022 15:40
-
стас48323.02.2021 13:28
-
Дженитка10.04.2023 07:20
-
ольга170517.02.2023 02:58
-
valerijarukavitsona20.03.2020 02:45
-
barash810.03.2021 01:01
-
KaFnaTou13.04.2021 08:23
-
lavin99701.02.2020 22:41
-
korol2315.04.2023 19:14
-
Proyd129.03.2022 20:16
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.