Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.

203

323

Посмотреть ответы 2

Ответы на вопрос:

Дуся003

Информатика

4,6(67 оценок)

Var a: word; b, c, d: byte; begin readln(a); b : = a mod 10; c : = a div 10 mod 10; d : = a div 100; writeln(b, ' ', c, ' ', d); if ((b in [c, d]) or (c in [b, d]) or (d in [b, c])) then writeln('yes, there are') else writeln('no, there aren"t'); end.

zandaryanartem1

Информатика

4,4(38 оценок)

1. (d3 + d5) / e6 ( в e7); (b2 + b4)/c5 (в c6). 2. а) значение переместится на строку выше б) значение переместится на строку ниже в) переместится на столбец влево г) переместится на столбец вправо