Question

n – целое число. Запишите выражение, позволяющее узнать его последнюю цифру.

Answer 1

 d1:=x div10

d2:=x mod10;

и программа

program zad23;
var
n,y,x: real;
begin
write(‘Введите угол n = ‘);
readln(n);
y := trunc(n/(2*pi));
x :=n-2*pi*y;
writeln(‘ х = ‘, x);
writeln(‘ sin x = ‘,sin(x));
writeln(‘ sin n = ‘,sin(n));
end.