Viết chương trình đơn giản bằng cách sử dụng dấu "*" để tạo thành 1 hình tam giác ( chương trình Pascal)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
var i, so: integer;
begin
writeln('Nhap vao 10 so tu nhien:');
for i := 1 to 10 do
begin
write('So thu ', i, ': ');
readln(so);
writeln('So vua nhap la: ', so);
end;
readln;
end.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
begin
if st[i]=' ' then writeln
else write(st[i]);
end;
readln;
end.
Tham khảo
Var s,i:integer;
begin
S:= 0;
For i:= 1 to 10 do s:=s+1;
Writeln (‘tong cua 10 so tu nhien dau tien la:’,s);
Readln
End.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
readln;
end.
Tam giác vuông
Tam giác cân