4: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное число и определить, какие цифры встречаются несколько раз (через repeat и until)/// ввести целое число и найти сумму его цифр (через while) ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while) всё через паскаль абс
Ответы на вопрос:
а я разве их не
но
1)
program pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; beginclrscr; readln(stroka);
i: =1; repeat
val(stroka[i],k,x); mas[i]: =k; i: =i+1;
until i=length(stroka); x: =0; for i: =1 to length(stroka) do x: =x+mas[i]; if x=10 then writeln('true')else writeln('else'); end.
2 я не знаю как решать
3)
program pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; beginclrscr; readln(stroka); i: =1; while i< =length(stroka) do begin val(stroka[i],k,x); mas[i]: =k; i: =i+1; end; x: =0; for i: =1 to length(stroka) do x: =x+mas[i]; writeln(x); end.
4)
program pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; beginclrscr; readln(stroka); i: =1; while i< =length(stroka) do begin val(stroka[i],k,x); mas[i]: =k; i: =i+1; end; x: =0; for i: =1 to length(stroka)-1 dofor k: =1 to length(stroka)-i do if mas[k]=mas[k+1] then x: =x+1; if x> 0 then writeln('true')else writeln('false'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
знания234506.11.2020 04:31
-
vlad238013.05.2020 07:57
-
НИкитос175703.02.2023 00:35
-
Лилия255211.02.2020 23:31
-
ajshshdj05.07.2022 17:50
-
ghromovrostisl2222.06.2020 23:24
-
paveldol200728.06.2022 00:22
-
arasukirina603.09.2021 21:46
-
pelmen12345678915.03.2020 05:36
-
kulickowakul17.09.2020 14:32
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.