Cоставить программу умножения первой цифры пятизначного числа ** 10.

Question

Cоставить программу умножения первой цифры пятизначного числа на 10.

Answer 1

если на паскаль, то:

program fgh;

var x,n,p:integer;

begin

writeln ('Введите пятизначное число');

readln (x);

n:= x div 10000;

p:= n*10;

writeln ('результат - ', p);

end.