Viết chương trình xuất ra bảng cửu chương 9? Giúp mình nha!
viết chương trình in ra màn hình bảng cửu chương 14
Giúp mình với ạ cảm ơn nhiều
program (tự việt nhé)
begin
a:=14;
writeln('Bang cuu chuong 14');readln;
for i:=1 to 10 do begin
writeln(a*i); delay(1000);
end;
readln;
end.
Sử dụng vòng lặp for...do em hãy viết chương trình xuất ra màn hình cửu chương 4 (nâng cấp: chỉ cần nhập cửu chương 1 đến 9 sẽ ra cửu chương đó)
Viết chương trình in ra màn hình bảng cửu chương từ 2 đến 9 bằng lệnh while...do...
program bang_cuu_chuong;
uses crt;
var n,tich,i:integer;
begin
clrscr;
n:=2;i:=1;
while n<=9 do
begin
while i<=10 do
begin
tich:=n*i;
writeln(n,' x ',i,' = ',tich);
i:=i+1;
end;
n:=n+1;i:=1;
end;
readln;
end.
Đây là đề có liên quan tới pascal và toán:
Viết chương trình bảng cửu chương in ra bảng cửu chương giữa màn hình.
Mong các pn giúp đỡ
dùng cấu trúc lặp for để viết chương trình đưa ra màn hình 10 dòng của bảng cửu chương 9
uses crt;
var i:integer;
begin
clrscr;
writeln('Bang cuu chuong 3 la: ');
for i:=1 to 10 do
writeln('3*',i,'=',3*i);
readln;
end.
tham khảo:
uses crt;
var i:integer;
begin
clrscr;
writeln('Bang cuu chuong 3 la: ');
for i:=1 to 10 do
writeln('3*',i,'=',3*i);
readln;
end.
Đây là đề có liên quan tới pascal và toán:
Viết chương trình bảng cửu chương in ra bảng cửu chương giữa màn hình.
Có thể giúp mik về câu lệnh goto ko
Đây là đền có liên quan tới pascal và toán:
Viết chương trình bảng cửu chương in ra bảng cửu chương giữa màn hình.
Có thể giúp mik về câu lệnh goto ko
viết chương trình in ra màn hình bảng cửu chương của số N trong khoản từ 1 đến 9 , N được nhập từ bàn phím
uses crt;
var n, i : integer;
begin clrscr;
readln(n);
for i:=1 to 9 do writeln(n,' x ', i, ' = ', n*i);
readln;
end.
program MultiplicationTable;
uses crt;
var
N, i, j: integer;
begin
clrscr;
write('Enter N: ');
readln(N);
for i := 1 to 9 do
begin
writeln(N, ' x ', i, ' = ', N*i);
end;
readln;
end.
viết chương trình in ra màn hình bảng cửu chương 14