Помогите написать программу. Информатика 8 класс
Задание:
Дано трехзначное число, напишите программу, которая определяет:
Приложения:
![](https://st.uroker.com/files/bc1/bc18edf1303ed739f362394340fbef93.jpg)
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Там 5 версий, какую скачать? я не шарю
Ответ дал:
0
Полную, для первой установки
Вас заинтересует
5 лет назад
5 лет назад
8 лет назад
9 лет назад