Дано целое число не равное нулю составьте программу целого положительного числа, вычислите модуль.

информатика, паскаль

ответ:

uses crt; (если используешь абс паскаль)  

var n,b,k: integer;

begin

writeln ('n');  

readln (n);

k: =n mod 2;

b: =n mod 10;

if k = 0 then writeln (b);

end.

объяснение: