Câu 2:
uses crt;
var f:text;
i,sum:word;
begin
assign(f,'baitap.out');rewrite(f);
for i:=1 to 20 do inc(sum,i);
write(f,sum);
close(f);
end.
Câu 3:
uses crt;
var f:text;
a:array[1..1000]of longint;
n,i,count,k:word;
begin
assign(f,'bai3.inp');reset(f);
readln(f,n,k);
for i:=1 to n do read(f,a[i]);
close(f);
assign(f,'bai3.out');rewrite(f);
for i:=1 to n do
if a[i] mod k=0 then inc(count);
write(f,count);
close(f);
end.
Câu 4:
uses crt;
var f:text;
i,sum:word;
begin
assign(f,'ketqua.out');rewrite(f);
for i:=1 to 10 do inc(sum,i);
write(f,sum);
close(f);
end.
