Предмет: Информатика,
автор: 21221221312312313
задача по информатике в паскаль известно следующее свойств целых чисел если число будучи разделено на 9 даст в остатке 1 или 8 то квадрат этого числа деленный на 9 даст 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.
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.
Приложения:
Похожие вопросы
Предмет: Українська мова,
автор: Dima230908
Предмет: История,
автор: crocomate
Предмет: Английский язык,
автор: omirbekalmas2011
Предмет: Математика,
автор: KsjushaDash
Предмет: Алгебра,
автор: njmc