giúp mình câu này vs mn ơi
viết chương trinh pascal giúp mình với nhé!!!!
Cho file dulieu.txt trong ổ đĩa D chứa nội dung sau
– dòng đầu tiên chứa số nguyên n
– n dòng tiếp theo chứa n số nguyên
giúp mình câu này vs mn ơi
viết chương trinh pascal giúp mình với nhé!!!!
Cho file dulieu.txt trong ổ đĩa D chứa nội dung sau
– dòng đầu tiên chứa số nguyên n
– n dòng tiếp theo chứa n số nguyên
var a,b:text;
s:integer;
begin
assign(a,’number.txt’);
assign(b,’KQ.txt’);
reset(a);
rewrite(b);
while not eof(a) do
begin
read(a,s);
if s mod 3 =0 then
writeln(b,’s=’,s,s:3);
end;
close(a);
close(b);
readln
end.