Есть ответ 👍

Придумать программу на паскале, чтобы можно было бы типо вести диалог с "компом" на заданных параметрах, чтобы когда пишешь () - он тебе тоже писал на вопрос (как дела) - писал бы (хорошо). надо - чем сможете

286
469
Посмотреть ответы 2

Ответы на вопрос:


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

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS