// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
var
n,d1,d2,d3:integer;
begin
Write('n='); Read(n);
d1:=n div 100; d3:= n mod 10;
d2:=(n div 10) mod 10;
if (d1=d2) or (d1=d3) or (d2=d3) then Writeln('Да')
else Writeln('Нет')
end.

<u><em>Тестовые решения:</em></u>
n=123
Нет

n=121
Да

n=222
Да

0 0

4 года назад

Все элементы двумерного массива A размером 10х10 элементов первоначально были равны 0. Затем значения элементов меняются с помощ

Leksi

Рассматривается матрица размеров 4х4, элементов будет 16. Пока все они равны нулю. При выполнении цикла получится следующее
2 1 1 1
1 0 0 0
1 0 0 0
1 0 0 0
Далее:
2 1 1 1
1 2 1 1
1 1 0 0
1 1 0 0
Далее:
2 1 1 1
1 2 1 1
1 1 2 1
1 1 1 0
Ну и последний шаг:
2 1 1 1
1 2 1 1
1 1 2 1
1 1 1 2

Считаей единички. Их 12. Ответ 12

0 0

4 года назад

Между цифрами 5,4,3,2и1 расставить знаки арефмитических операций и скобки так ,что бы получился нуль

Михаил000 [1]

(5-4)*3-2-1=0
..........

0 0

4 года назад

Прочитать ещё 2 ответа