Информатика, опубликовано 2018-08-22 21:22:45 by Гость

Дано натуральное четырехзначное число,верно ли, что все его цифры различны?

Ответ оставил Гость

var a,b,c,d,e:integer;
begin
read(a);
b:=a mod 10;
a:=a div 10;
c:=a mod 10;
a:=a div 10;
d:=a mod 10;
a:=a div 10;
e:=a mod 10;
if (bc) and (bd) and (be) and (cd) and (ce) and (de) then write(net povtorov)
else write(est povtori);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.