Решите , ! ввести целое число и определить верно ли что в его записи есть две одинаковые цифры паскаль

115

449

Посмотреть ответы 3

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

Болыс111

Информатика

4,4(31 оценок)

Var x,y,z,f: integer; begin write('введите число: '); readln(x); while x> 0 do begin y: =x mod 10; z: =x div 10; while z> 0 do begin if (z mod 10)=y then f: =1; z: =z div 10; end; x: =x div 10; end; if f=1 then writeln('верно, есть одинаковые цифры') else writeln('нет одинаковых цифр') end.если использовать строковые ф-ии, то программа будет проще: var i,k,f: integer; s,t: string; beginwrite('введите число: '); readln(s); k: =length(s); for i: = 1 to k do begin t: =copy(s,i+1,k-i+1); if pos(s[i],t)> =1 then f: =1; end; if f=1 then writeln('верно, есть одинаковые цифры') else writeln('нет одинаковых цифр')end.

JSG111

Информатика

4,8(33 оценок)

Program hardzadacha; var 1,2,3,4,5,6,7,8,9,0: array [0..5] of integer; a,i,x: integer; begin writeln('введите целое число : '); read(a); for i: =1 to 5 do begin if a mod 10 =0 then 0[i]: =0[i]+1; if a mod 10 =1 then 1[i]: =1[i]+1; if a mod 10 =2 then 2[i]: =2[i]+1; if a mod 10 =3 then 3[i]: =3[i]+1; if a mod 10 =4 then 4[i]: =4[i]+1; if a mod 10 =5 then 5[i]: =5[i]+1; if a mod 10 =6 then 6[i]: =6[i]+1; if a mod 10 =7 then 7[i]: =7[i]+1; if a mod 10 =8 then 8[i]: =8[i]+1; if a mod 10 =9 then 9[i]: =9[i]+1; a: =a mod 10; end; for i: =2 to 5 do begin if 0[i]+0[i-1]> 1 then x: =1; if 1[i]+1[i-1]> 1 then x: =1; if 2[i]+2[i-1]> 1 then x: =1; if 3[i]+3[i-1]> 1 then x: =1; if 4[i]+4[i-1]> 1 then x: =1; if 5[i]+5[i-1]> 1 then x: =1; if 6[i]+6[i-1]> 1 then x: =1; if 7[i]+7[i-1]> 1 then x: =1; if 8[i]+8[i-1]> 1 then x: =1; if 9[i]+9[i-1]> 1 then x: =1; end; if x=1 then writeln('есть повторяющие цифры') else writeln('нет повторяющихся цифр'); end.

flanyshkatop

Информатика

4,4(28 оценок)

ответ: цена – числовая информация.

Реши свою проблему, спроси otvet5GPT

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

Задай свой вопрос

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

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

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

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

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

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

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