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.
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln(s);
readln;
end.
Câu 1: S = 10
Câu 2: Chữ "xin chao" được in ra màn hình 3 lần
Câu 3:
- For...to...do:
+ Là câu lệnh lặp với số lần lặp biết trước.
+ Điều kiện kết thúc vòng lặp là một số xác định.
- While...do:
+ Là câu lệnh lặp với số lần lặp chưa biết trước.
+ Điều kiện để kết thúc vòng lặp thường là một phép so sánh.
Em cũng làm được cái này nhưng hai câu nó không xuống dòng mà nó cứ ra liên tiếp. Giúp e với
begin
write('xin chao cac ban');
write('toi la free pascal');
readln;
end.
uses crt;
var ten:string;
begin
clrscr;
write('ban ten gi:'); readln(ten);
writeln('xin chao ban ',ten,' den voi Pascal');
readln;
end.
uses crt;
var i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
writeln(i,'. XIN CHAO');
readln;
end.