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.
Đây đúng không ạ :
Trong Pascal, có 2 dạng vòng lặp có bước lặp biết trước
Cú pháp:
- Dạng tiến: For <biến đếm> := <giá trị đầu> to <giá trị cuối> do
- Dạng lùi: For <biến đếm> := <giá trị cuối> downto <giá trị đầu> do
Có 2 vòng lặp có bước lặp xác định (có số lần biết trước):
+ Vòng lặp tiến (trên lớp học)
for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
+ Vòng lặp lùi (Không học, chỉ có đọc thêm)
for <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
4a
5d
7 không đáp án nào đúng đâu bạn
8c
9a
12a
13a
14d
15c
16c
17b
19c
chúc bạn thi tốt ![]()
Program HOC24;
var i,a,b: integer;
t: longint;
begin
write('Nhap so nguyen duong a : '); readln(a);
write('Nhap so nguyen duong b : '); readln(b);
t:=0;
for i:=a to b do t:=t+i*i;
write(t);
readln
end.
lên chatgpt hoặc gemini mà hỏi chứ hỏi ở đây còn lau mới cs câu trả lời
uses crt;
Var a,b: Real;
begin
Clrscr ;
Write ('Nhap a: '); readln (a);
Write ('Nhap b: '); readln (b);
If a < b then write ('Sap xep theo thu tu tang dan: ',a,' ',b);
If a > b then write ('Sap xep theo thu tu tang dan: ',b,' ',a);
if a = b then write ('Khong the thuc hien yeu cau!');
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a<b then writeln(a,' ',b);
if a>b then writeln(b,' ',a);
if a=b then writeln('vui long nhap hai so khac nhau');
readln;
end.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
g
??
vaiz
thứ 5 mik cũng ph đi tập trung
26 mik ms tập trung cơ bn ạ.
mih phải 5/9 cơ á