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.
a: Không hợp lệ
Sửa lại: for i:=50 downto 10 do writeln('A');
b: Không hợp lệ
Sửa lại: for i:=1 to 5 do writeln('A');
c: Không hợp lệ
x:=3;
while x<=3 do
x:=x+1;
d: Không hợp lệ
Sửa lại: x:=5;
while x<=5 do
x:=x+2;
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
Đoạn chương trình 1:
j=7
k=10
Đoạn chương trình 2:
j=7
k=28
c) Không hợp lệ vì lệnh gán phải kí hiệu là := chứ không phải =
d) Không hợp lệ vì sau từ khóa do không được phép có dấu chấm phấy ;
e) Không hợp lệ, vì không x phải khai báo số nguyên !
a) ko. vì giá trị đầu lớn hơn giá trị cuối
b) ko. vì giá trị đầu và giá trị cuối ko phải là giá trị nguyên
c) ko. vì sau biến đếm i thiếu dấu (:)
d) ko. vì sau DO có dấu (;)
e) ko. vì x ko khai báo số nguyên
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
A ko hợp lệ vì 5>1
B ko hợp lệ vì chỗ gán thiếu dấu :