Комментарии: Решаем задачи Абрамян на Паскале. Boolean20

Автор: Chemster

Chemster — Mon, 27 Nov 2017 07:08:47 +0000

Program Boolean20;
var A,H,T,O:integer;
B:boolean;
begin
writeln('Enter A value');
readln(A);
H:=A div 100; {Количество сотен}
T:=A mod 100 div 10; {Количество десятков}
O:=A mod 10; {Количество единиц}
B:=(H<>T)and(T<>O)and(H<>O);
writeln('All of the numbers are different = ',B);
end.

Program Boolean20;

var A,H,T,O:integer;

B:boolean;

begin

writeln('Enter A value');

readln(A);

H:=A div 100; {Количество сотен}

T:=A mod 100 div 10; {Количество десятков}

O:=A mod 10; {Количество единиц}

B:=(H<>T)and(T<>O)and(H<>O);

writeln('All of the numbers are different = ',B);

end.

Автор: Anton

Anton — Wed, 17 Aug 2016 10:42:39 +0000

В ответ на Евгений. Добавил решение в шапку.

Автор: Евгений

Евгений — Wed, 17 Aug 2016 10:27:40 +0000

у меня так:

  a,s,d,e:integer;
begin
  Task('Boolean20');
 read(a);
   s:=a div 100;
   d:=a div 10 mod 10;
   e:=a mod 10;
  writeln( (s <> d)and(d <> e)and(s <> e) );
end.

a,s,d,e:integer;

begin

Task('Boolean20');

read(a);

s:=a div 100;

d:=a div 10 mod 10;

e:=a mod 10;

writeln( (s <> d)and(d <> e)and(s <> e) );

end.

Автор: Anton

Anton — Tue, 21 Apr 2015 10:31:09 +0000

Было:

program Boolean20;
var
A,B,C: Integer;
begin
Write('Введите число: ');
Readln(A);
Writeln(not((A mod 111) = 0));
end.

program Boolean20;

var

A,B,C: Integer;

begin

Write('Введите число: ');

Readln(A);

Writeln(not((A mod 111) = 0));

end.

Стало:

program Boolean20;
var
A,A1,A2,A3: Integer;

begin
Write('Введите число: ');
Readln(A);
A1:=A div 100;
A:=A-A1*100;
A2:=A div 10;
A3:=a-A2*10;
Writeln((A1<>A2) and (A2<>A3) and (A1<>A3));
end.

program Boolean20;

var

A,A1,A2,A3: Integer;

begin

Write('Введите число: ');

Readln(A);

A1:=A div 100;

A:=A-A1*100;

A2:=A div 10;

A3:=a-A2*10;

Writeln((A1<>A2) and (A2<>A3) and (A1<>A3));

end.

Автор: Anton

Anton — Tue, 21 Apr 2015 10:17:05 +0000

В ответ на Renata. Эх... такое хорошее решение было... :) надо переписать опять :(

Автор: Renata

Renata — Tue, 21 Apr 2015 09:32:14 +0000

В ответ на Anton. Все три цифры должны быть различны, т.е. для 121, например, вернется true, хотя должно быть false

Автор: Кирилл

Кирилл — Wed, 03 Dec 2014 15:25:09 +0000

В ответ на Anton. недаром говорят "лень на выдумки хитра" :-)

Автор: Anton

Anton — Wed, 03 Dec 2014 14:36:33 +0000

В ответ на Кирилл. да я просто ленивый :)

Автор: Кирилл

Кирилл — Wed, 03 Dec 2014 14:22:19 +0000

В ответ на Anton. реально у тебя грамотнее решение ))) надо мне развивать соображалку

Автор: Anton

Anton — Wed, 03 Dec 2014 07:36:22 +0000

Да действительно решил не ту задачу.
Было:

program Boolean20;
var
A,B,C: Integer;
begin
Write('Введите число A: ');
Readln(A);
Write('Введите число B: ');
Readln(B);
Write('Введите число C: ');
Readln(C);
Writeln((A<>B) and (B<>C) or (C<>A));
end.

program Boolean20;

var

A,B,C: Integer;

begin

Write('Введите число A: ');

Readln(A);

Write('Введите число B: ');

Readln(B);

Write('Введите число C: ');

Readln(C);

Writeln((A<>B) and (B<>C) or (C<>A));

end.

У тебя решение конеч но правильное, но с утра сильно сложно разбираться в остатках от делений.. решил так:

program Boolean20;
var
A,B,C: Integer;
begin
Write('Введите число: ');
Readln(A);
Writeln(not((A mod 111) = 0));
readln;
end.

program Boolean20;

var

A,B,C: Integer;

begin

Write('Введите число: ');

Readln(A);

Writeln(not((A mod 111) = 0));

readln;

end.