In bảng cửu chương n (Với n nhập từ bàn phím) ghi rõ 3 bước.

2 câu trả lời

xác định bài toán:

in: số n;

out: bảng của chương n;

thuật toán:

B1: nhập n:

B2: i←0;

B3: nếu i>10 thì kết thúc

B4: xuất n*i=n*i;

B5: i←i+1; quay lại B2;

chương trình:

uses crt;
var n,i:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to 10 do writeln(n,' * ',i,' = ',n*i);
 readln
end.

Program Cuu_Chuong_1;
uses crt;
var n, i : integer;
begin
 clrscr;
 write('Nhap n: '); readln(n);
 for i:= 1 to 9 do writeln(n,' x ', i, ' = ', n*i);
 readln
end.

Câu hỏi trong lớp Xem thêm