Viết chương trình nhập vào 1 số nguyên a từ file inp. in ra file out 2 dòng
dòng 1: thương của phép chia 2021 cho a
dòng 2: số dư của phép chia 2021 cho a
giải nhanh giúp tớ với ạ
Viết chương trình nhập vào 1 số nguyên a từ file inp. in ra file out 2 dòng
dòng 1: thương của phép chia 2021 cho a
dòng 2: số dư của phép chia 2021 cho a
giải nhanh giúp tớ với ạ
program phepchia;
var fi,fo:text;
a:integer;
begin
Assign(fi,’FILE.inp’); reset(f);
Assign(fo,’FILE.out’); rewrite(fo);
readln(fi,a);
writeln(g,2021 div a);
writeln(g,2021 mod a);
close(fi); close(fo);
end.