Pascal Вывести на экран 1 или 0 в зависимости от - вопрос №1520772210 от Бла161 06.09.2022 19:44

Question

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

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