Задача по информатике в паскаль известно следующее свойств целых чисел если число будучи разделено на 9 даст в остатке 1 или 8 то квадрат этого числа деленный на 9 даст 1. решите в виде паскаль

Question

Информатика

Паня

9 марта, 19:27

Задача по информатике в паскаль известно следующее свойств целых чисел если число будучи разделено на 9 даст в остатке 1 или 8 то квадрат этого числа деленный на 9 даст 1. решите в виде паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Феона · Answer 1

Не совсем понял условие, но попытался сделать

Program ex1; uses crt; var x:integer; begin write ('Введите число : ') ; readln (x) ; if (x mod 9 = 1) or (x mod 9 = 8) then writeln ('Остаток числа ', x,' от деления на 9 : ', sqr (x) mod 9) else writeln ('Число не подходит!') ; end.