Дано трёхзначное число. напишите программу которая определяет ...

Question

Дано трёхзначное число. напишите программу которая определяет ...

Нюра

Дано трёхзначное число. напишите программу которая определяет есть ли среди цифр заданного целого трёхзначного числа одинаковые

Есть ответ

17.12.2022

230

Ответ

Answer 1 · 17.12.2022

Var a,b,c,x:integer;

begin

readln(x);

a:=x mod 10;

x:=x div 10;

b:=x mod 10;

x:=x div 10;

c:=x mod 10;

if(a=b) or(a=c) or (b=c) then writeln('Yes')

else writeln('No');

end.

Дано трёхзначное число. напишите программу которая определяет ...

Дано трёхзначное число. напишите программу которая определяет есть ли среди цифр заданного целого трёхзначного числа одинаковые

Ответ

Var a,b,c,x:integer; begin readln(x); a:=x mod 10; x:=x div 10; b:=x mod 10; x:=x div 10; c:=x mod 10; if(a=b) or(a=c) or (b=c) then writeln('Yes') else writeln('No'); end.

Var a,b,c,x:integer;

begin

readln(x);

a:=x mod 10;

x:=x div 10;

b:=x mod 10;

x:=x div 10;

c:=x mod 10;

if(a=b) or(a=c) or (b=c) then writeln('Yes')

else writeln('No');

end.