Question

Помогите написать программу. Информатика 8 класс
Задание:
Дано трехзначное число, напишите программу, которая определяет:

Answer 1

Var a,b,c:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
b:=(A div 10) mod 10;
c:= A mod 10;
a:= A div 100;
if (a=b)or(b=c)or(c=a) then WriteLn('Да')
else WriteLn('Нет');
End.