Дано двузначное число Напишите программку на языке Паскаль, которая определяет: Есть

Дано двузначное число Напишите программу на языке Паскаль, которая определяет: Есть ли посреди цифр данного целого двузначного числа одинаковые.

Задать свой вопрос
1 ответ

var s:string;

begin

 write('Введите целое двузначное число: ');

 readln(s);

 if s[1]=s[2] then writeln('Числа схожи')

 else writeln('Числа различаются');

 readln

end.  

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт