đề tin 1 tiết

[sagacious]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

bài hơi khó nên cố gắng nha!
1. viết chương trình tính tổng các số tự nhiên nhỏ hơn 9
2. cho N nhập từ bàn phím sao cho 0<N<1000. viết chương trình nhập lại nếu N ko thỏa mãn điều kiện
3. viết chương trình tình tông các số chẵn (lẻ) trong mảng A (tự cho)&gt;-

 

[megamanxza]

Bài 1:

[COLOR="Blue"][B]Uses crt;
var tong, i: integer;
begin
clrscr;
for i:= 0 to 8 do tong:=tong+i;
write ('Tong cac so tu nhien nho hon 9 la ',tong);
readln
end.[/B][/COLOR]

Bài 2:

[COLOR="blue"][B]Uses crt;
var so: integer;
begin
clrscr;
repeat
  write ('Nhap so N: '); readln (so);
  if (N<=0) or (N>=1000) then writeln ('So N khong thoa man dieu kien 0<n<1000! Nhap lai!');
until (N>0) and (n<1000);
write ('So N nhap thoa man! An Enter de ket thuc chuong trinh!');
readln
end.[/B][/COLOR]