Tin học Viết chương trình Pascal

[Diệu trần]

[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.

1/ Viết chương trình tính tổng các số tự nhiên sao cho tổng nhỏ nhất lớn hơn 1000
2/Viết chương trình in ra màn hình bảng cửu chương 8

 

[Sơn Nguyên 05]

1. Code
S:=0; n:=1;
while S<=1000 do
begin
S:=S+n ; n:=n+1;
end;
2. Tớ nhớ không nhầm thì có trong SGK

 

[Gaming.LQ]

program bangcuuchuong;

1/ Viết chương trình tính tổng các số tự nhiên sao cho tổng nhỏ nhất lớn hơn 1000
2/Viết chương trình in ra màn hình bảng cửu chương 8

Cái này mình viết bao quát tất cả các bảng cửu chương nhé!
program bang_cuu_chuong;
uses crt;
var N,i : integer;
BEGIN
Clrscr;
Write('Nhap so N : ');
Readln(N);
Writeln('BANG NHAN ',N : );
for i:=1 to n do
Writeln(N,' x ', i ,' = ', N*i);
readln
END.