Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае

@Knives · Регистрация: 13.12.2009

все цифры заданного четырехзначного числа N различны.

@Викдон · 13.12.2009, 17:41

Pascal

var N:integer;
    i,j:integer;
    Mas:array[1..4] of byte;
begin
   write('Enter N:');
   readln(N);
   for i:=1 to 4 do
    begin
     Mas[i]:=N mod 10;
      if Mas[i] = 0  then
       begin
         writeln('Error!')
         readln;
         exit;
       end;
     N:=N div 10;
    end;
 
    if N mod 10 <>0 then
     begin
         writeln('Error!')
         readln;
         exit;
       end;
    for i:=1 to 4 do
     for j:=1 to 4 do
      if (Mas[i]=Mas[j]) and (i<>j) then
       begin
         writeln('false');
         readln;
         exit;
       end;
 
   writeln('true');
   readln;
end.

@Knives · 13.12.2009, 21:31 **[ТС]**

Спасибо.

@Knives 0 / 0 / 0 Регистрация: 13.12.2009 Сообщений: 9
		1
	Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае 13.12.2009, 17:08. Показов 2625. Ответов 2 Метки нет (Все метки) все цифры заданного четырехзначного числа N различны. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Knives 0 / 0 / 0 Регистрация: 13.12.2009 Сообщений: 9
	13.12.2009, 21:31 [ТС]	3
	Спасибо. 0

Опции темы

Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае

Решение