Question

ПОМОГИТЕ...НУЖНО НАПИСАТЬ В ПАСКАЛЕ

Answer 1

Ответ:

var x: real;

begin

write('Введите пароль: ');

readln(x);

write('Ответ: ',trunc(frac(x*x)*10))

end.