Придумать программу на паскале, чтобы можно было бы типо вести диалог с "компом" на заданных параметрах, чтобы когда пишешь () - он тебе тоже писал на вопрос (как дела) - писал бы (хорошо). надо - чем сможете
286
469
Ответы на вопрос:
vara: string; beginreadln(a); if (a='') or (a='') then writeln(', как дела? '); readln(a); if (a='хорошо') or (a='хорошо') then writeln('у меня тоже все хорошо'); if (a='плохо') or (a='плохо') then writeln('мне тоже грустно');
end.
//pascalabc.net 3.2 сборка 1318 var l, r, counter, i: integer; function difnum(a: integer): integer; var se: set of integer; i: integer; begin while a > 0 do begin if a mod 10 in se then begin difnum : = 0; exit; end else include(se, a mod 10); a : = a div 10; end; difnum : = 1; end; begin read(l, r); for i : = l to r do counter += difnum(i); writeln(counter); end. //альтернативное решение на паскале var l,r: integer; begin read(l,r); writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.); end. //dev-c++ 5.11 (c) #include < stdio.h> #include < malloc.h> int difnum(int); int main(void) {int l,r,counter=0; scanf("%d %d",& l,& r); for(int i=l; i< =r; i++) counter+=difnum(i); printf("%d",counter); return 0; } int difnum(int a) {int k=1,*nums; nums=(int*)malloc(k*sizeof(int)); nums[0]=-1; while(a> 0) {for(int i=0; i< k; i++) if(a%10==nums[i]) return 0; k++; nums=(int*)malloc(k*sizeof(int)); nums[k-1]=a%10; a/=10; } free(nums); return 1; } пример ввода: 1 12 пример вывода: 11
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
rinett10.01.2022 17:01
-
максим172212.02.2020 22:58
-
Hicoleta13.05.2021 01:25
-
Маргоритка1103.04.2021 18:06
-
ЛизаПру16.05.2022 01:27
-
denissneganatan28.02.2020 03:52
-
nagimako14.04.2023 13:23
-
PollusikRO28.10.2020 11:26
-
DanilSv04022.05.2022 00:44
-
RomqaShut06.06.2021 03:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.