mn giúp e bài này với ạ, pascal nhé Cô bé Tanya đang học cách giảm một số: - nếu chữ số cuối cùng của số khác không, cô ấy giảm số đó đi một. - nếu chữ số cuối của số bằng 0, cô ấy chia số đó cho 10 (tức là xóa chữ số cuối). Tanya được cấp một số nguyên n. Tanya sẽ trừ một từ nó k lần.Nhiệm vụ của bạn là in kết quả sau tất cả k phép trừ. Nó được đảm bảo rằng kết quả sẽ là số nguyên dương. Input: - Dòng đầu tiên chứa hai số nguyên n và k (2≤n ≤10^18 , 1≤k≤ 50) ,số mà Tanya sẽ trừ và số phép trừ tương ứng. Output: - In một số nguyên - kết quả của việc giảm n bởi một k lần Ví dụ NUM.INP NUM.OUT 512 4 50
2 câu trả lời
var i,k:byte;
n:qword;
f1,f2:text;
const fi='NUM.INP';
fo='NUM.OUT';
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,n,k);
for i:=1 to k do
begin
if n mod 10<>0 then dec(n)
else n:=n div 10;
end;
writeln(f2,n);
close(f1);close(f2);
end.
uses crt;
const fi='NUM.INP';
fo='NUM.OUT';
var n,i,k:longint;
begin
assign(input,fi);reset(input);
assign(output,fo);rewrite(output);
read(input,n,k);
for i:=1 to k do
if n mod 10<>0 then dec(n) else n:=n div 10;
write(output,n);
close(input);
close(output);
end.
