Ответ:
var x: real;
begin
write('Введите пароль: ');
readln(x);
write('Ответ: ',trunc(frac(x*x)*10))
end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var x: real;
begin
write('Введите пароль: ');
readln(x);
write('Ответ: ',trunc(frac(x*x)*10))
end.