👤

am nevoie de programul in pascal la intrebarea ( Atribuiţi-i variabilei întregi k prima cifră din partea fracţionară a numărului real pozitiv n.)

Răspuns :

Răspuns:

var n:real; k,b:integer;

begin

 read(n);

 b:=trunc(n*10);

 k:=b mod 10;

 writeln(k);

end.

Explicație: