67

Помогите пожалуйста с информатикой.1) Написать программу на turbo paskal, которая…

24 февраля 2023

Помогите пожалуйста с информатикой.1) Написать программу на turbo paskal, которая определяет все ли цифры трехзначного числа одинаковые

категория: информатика

38

Var n,e,d,s: longint; beginread (n); s: =n div 100; n: =n mod 100; d: =n div 10; e: =n mod 10; if (s=d) and (s=e) and (d=e) then writeln ('ravny') else writeln ('ne ravny'); end.

Знаете ответ?

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