Question

các bn giups mik vs mik sắp thi rồi!!!!

Viết ct nhập số nguyên dương N từ bn phím (N<10^9).Hãy inra só nguyên lớn nhất nhỏ hơn N có tổng các chữ số bằng 10

VD:N=200 ==>190

Answer 1

uses crt;

var S,n,i; integer;

begin

clrscr;

repeat

writeln('Nhap n = '); read(n);

until n<1000000000;

i:=n-1;

While i<n do

begin

S := 0; While ( i <> 0 ) do

Begin k := i mod 10;

i := i div 10;

S := S + k;

end;

end;

if S = 10 then write(i);

readln

end.

Answer 2

mik đang cần gấp mùng 2/5 thi rồi