Pascal Вывести на экран 1 или 0 в зависимости от того, есть ли среди трёх цифр однозначный или трехзначный

Question

Информатика: Pascal Вывести на экран 1 или 0 в зависимости от того, есть ли среди трёх цифр однозначный или трехзначный​

sleta1998A · Answer

var i,y,x,z,w:integer; begin writeln( i= );readln(i); x:=i div 100; y:=i div 10; z:=y mod 10; w:=i mod 10; if (x=z) or (w=z) or (w=x) then writeln(1) else writeln(0); end....

Pascal Вывести на экран 1 или 0 в зависимости от того, есть ли среди трёх цифр однозначный или трехзначный​

Популярные вопросы

Pascal Вывести на экран 1 или 0 в зависимости от того, есть ли среди трёх цифр однозначный или трехзначный