Определить, что все цифры числа различны - Pascal ABC

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 //Дано трехзначное число.Проверить истиность высказывания :Все цифры данного числа различны. Program razlichnie; var a, c1, c2, c3: integer;     l: boolean; begin   write('Введите трехзначное число ->');   readln(a);   c1:=a mod 10;   c2:=a div 10 mod 10;   c3:=a div 100;   l:=(c1<>c2) and (c2<>c3) and (c1<>c3);   writeln('Все цифры данного числа различны = ', l); end.


textual

Код:

Program razlichnie;
var a,B,c,d:integer;
var w:boolean;
begin
write('Введите трехзначное число ->');
readln(a);
b:=(a div 100);
C:=(a div 10 mod 10 );
D:=(A MOD 10);
IF (b<>c)and(c<>d)and(b<>d) then w:=true;
if w=TRUE  then writeln('Все цифры данного числа различны')
else
writeln('не все');
write (w); // на  всякий случай
end.


Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 const x = 0.29;   var y, sv, sz, fact, st: real; i, j, zn: integer;   begin sz := 0; writeln('cycles for and while'); writeln('vnutr suma zovn suma'); for j := 4 to 12 do begin fact := 6; i := 1; sv := 0; zn := -1; st := x; while i <= 10 do begin y := zn * ((sqrt(i) * Ln(x + 1)) / (sqrt(j) + fact)); i := i + 1;st := st * x; sv := sv + y; fact := fact * (i + 2); zn := -zn; end; sz := sz + sv; writeln(sv:10:6, sz:14:6); end; writeln('zagalna suma=', sz:10:6); end.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 program nakoplenie; var s,x,y,p,z: real; k1, k2, k3,k4,k: integer;         function summa(k: integer): real;     begin     summa := abs(sin((sqr(k) / 1.5) - 2)) + 11.73 * cos(1.6 * k - 1)     end;       function proiz(var k: integer): real;     begin     proiz := 13.4 * cos(abs(k)) * sin(sqr(k) - 2.25);     end;       begin    writeln('Введите номер варианта для определения k конечного для суммы и произведения ');    readln(k2);    k1:=1;    s := 0;    for k := k1 to k2+5 do  s := s +summa(k);      p := 1;    for k := k1 to k2+8 do  p := p *proiz(k);        writeln('s=', s:2:2);    writeln('p=', p:2:2);       x := s;     y := p;     z := (5 * x) - (2 * y);     writeln('z=', z:2:2);     end.ОКНО ВЫВОДА: Введите номер варианта для определения k конечного для суммы и произведения 13 s=9.24 p=-299426686126.04 z=598853372298.28 Почему он не хочет хвост меньше делать? Объясните пожалуйста. Подставляла разные числа.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Для заданного натурального числа определить, сколько раз в его записи встречается каждая из цифр. (Паскаль и Бейсик) Помогите :С

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 TYPE MAS=ARRAY [1..30] OF REAL;  VAR A,X:MAS;  VAR RA:INTEGER;        PROCEDURE VVOD (VAR N:INTEGER; VAR X:MAS);  VAR I: INTEGER;  BEGIN   WRITE('кол-во элементов массива  ');   READLN (N);   FOR I:=1 TO N DO    BEGIN     X[I]:=sin(i);    END;  END;    PROCEDURE VIVOD (VAR N:INTEGER; VAR X: MAS);  VAR I:INTEGER;  BEGIN    FOR I:=1 TO N DO WRITE (' (',i:2,')=',x[i]:5:2);    WRITELN()  END;        {Поиск нечётных элементов}  PROCEDURE NECHETN (VAR N:INTEGER; VAR X: MAS);  VAR I:INTEGER;  BEGIN    FOR I:=1 TO N DO    IF (I mod 2) <>0 THEN WRITE (' (',i:2,')=',x[i]:5:2);    WRITELN()  END;         {Основная программа}  BEGIN   VVOD(RA, A);   WRITELN ('massiv a');   VIVOD (RA, A);   WRITELN ('Элементы массива A индекс которых нечётный');   NECHETN (RA, A)        END.Что нужно добавить в процедуре NECHETN, чтобы выводились не только нечётные элементы, но и их кол-во?

  1. Принадлежит ли точка М(x;y) закрашенной области. Крайние точки области y(2;-2) x(1;-1), т.е. ромб.