Bài 1:
program oken;
uses crt;
var a,b:longint;
begin
clrscr;
write('Nhap so a: '); readln(a);
write('Nhap so b: '); readln(b);
if (a mod b=0) then
writeln('Co')
else
writeln('Khong');
readln;
end.
Bài 2:
a) Số lần lặp=100-1+1=100
b) For i:=1 to 100 do t:=t+i;