81

Написать программу генерирующую и выводящую на экран стозначное целое число.…

04 марта 2023

Написать программу генерирующую и выводящую на экран стозначное целое число. Определить делится ли данное стозначное число на 3 или 9

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



36

Program zadacha; Var x: integer; Begin Randomize; x: =random (9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999)+1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000; If (x mod 3=0) then begin If (x mod 9=0) then writeln ('Делится на 3 и на 9); End; If (x mod 3=0) then begin If (x mod 9>0) then writeln ('Делится только на 3); End; If (x mod 9=0) then begin If (x mod 3>0) then writeln ('Делится только на 9); End; End. P.S. Вы уверены, что СТОзначное число?

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


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