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

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.

Comments

Тот, на который Вы ссылку дали

---

хороший говорю, какой

---

подскажите ссылку на хороший пожалуйста

---

Там, кстати, написана версия компилятора "fpc 3.0.0" - FreePascal 3.0.0. Скачайте компилятор здесь: PascalABC.NET

---

В этой версии не выдает ошибку?

---

Там 5 версий, какую скачать? я не шарю

---

Полную, для первой установки

---

Ок. А русификатор там есть?

---

Только русская версия и есть.

---

Все получилось, спасибо огромное!