Pascal Вывести на экран 1 или 0 в зависимости - вопрос №1520772210 от misha223414 02.04.2020 18:15

Question

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

misha223414 · 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 в зависимости от того, есть ли среди трёх цифр однозначный или трехзначный