Задачка в Pascal:ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. (Циклы с условием)Решение должно быть простым, потому что такие вещи, как массивы ещё не прошли. Скорее всего здесь будет использоваться while, div, mod.
Program gt; var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer; begin read(n); a0:=0;a1:=0; a2:=0;a3:=0; a4:=0;a5:=0; a6:=0;a7:=0; a8:=0;a9:=0; while n>0 do begin q:=n mod 10; n:=n div 10; if(q=0)then a0:=a0 1; if(q=1)then a1:=a1 1; *********************** *********************** if(q=9)then a9:=a9 1; end; if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no'); end. буз массива как-то так получиться
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
