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

0 голосов
13 просмотров

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


Информатика (34 баллов) | 13 просмотров
Дан 1 ответ
0 голосов

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

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.

(440 баллов)