Дано натуральное трех значное число, проверить будетли все цифры числа различными

292

405

Посмотреть ответы 2

Ответы на вопрос:

yourdream1806

Информатика

4,6(86 оценок)

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 begin var n: =readinteger('введите трехзначное натуральное число: '); if n.tostring.distinct.count=3 then writeln('все цифры различны') else writeln('есть одинаковые цифры') end. результаты тестирования введите трехзначное натуральное число: 121 есть одинаковые цифры введите трехзначное натуральное число: 555 есть одинаковые цифры введите трехзначное натуральное число: 490 все цифры различны

alinaara

Информатика

4,4(96 оценок)

Program art; var a: integer; begin writeln('введите число: '); readln(a); if (a> =10) and (a< =99) then writeln('число двузначное') else writeln('число не является двузначным') end.