program tin_học;

uses crt;

var n:integer;
begin
write('nhap n:');readln(n);
if n mod 7=0 then write(n,' chia het cho 7 ')
else write(n,' khong chia het cho 7 ');
readln;
end.

Someone tried to get in through the kitchen window during the night. If you lock carefully, you can see the maks

4 giai đoạn:

Từ 14 - 7 - 1789 đến 10-8-1792: Cách mạng bùng nổ và phàt triển Khởi nghĩa của nhân dân Pari phá ngục Ba-xti, lật đổ chế độ quân chủ chuyên chế. Tháng 8 - 1789 thông qua Tuyên ngôn Nhân quyền và Dân quyền. cách mạng lan rộng khắp cả nước

Từ 10 - 8 - 1792 đến 2-6 -1793: Cách mạng tiếp tục phát triển Khởi nghĩa của nhân dân Pari: Nền quân chủ lập hiến bị lật đổ, thiết lập nền cộng hoà. Vua Lui XVI bị tử hình. Chiến tranh bảo vệ tổ quốc, bảo vệ cách mạng

Từ 2-6-1793 đến 27-7-1794: Đỉnh cao của cách mạng Nhân dân Pari khởi nghĩa lật đổ phái Gi-rông-đanh; xoá bỏ mọi đặc quyền của phong kiến đẩy lùi được nạn ngọai xâm.

Từ 27- 7 -1994 đến 9- 11- 1799: Thoái trào cách mạng Đảo chính phản cách mạng, phái Gia-cô-banh bị lật đổ
Đảo chính Của Napôlêông, chế độ độc tài quân sự thiết lập

1 / is (snow) was snowing when I (liave) left home this morning

2 / A Lot of people (wsit) were waiting for the 7:30 bus last nighr
3 / He ( talk) was talking on the phone when i (arrive)arrived
4 / I nearly had and accident this morning. A car (come) was coming towards me , bus I (move) moved quickly our of the way
5 / it was a sunny afternoon and people (sit) was sitting on the grass in the park. then it suddenly ( start ) started to rain
6 / which hotel ( you/stay ) were you staying in when you ( lose) lost your passpost?
7 / Fortunately , i (not drive ) wasn't driving too fast when the child ( walk ) walked into the road in front of me
8 / what ( you/do ) were you doing at 3 o`clock yesterday afternoon ?

câu 2 mã 2: đáng lẽ là đầu tiên là dấu dương, tại sao lại âm

thời gian là bao lâu

program tin_hoc;

uses crt;
var n,dem,t: integer; s:real;
begin

clrscr;

write('------------tinh trung binh cong,nhap 0 de ket thuc------------');
write('Nhap so tu ban phim :'); readln(n);
t:=n;dem:=1;
while n<>0 do
Begin
write('Nhap so tu ban phim:'); readln(n);
t:=t+n;dem:=dem+1;
end;

s:= t /(dem-1);
write(s);
readln
end.