K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
14 tháng 1 2022
- Program KTCHK1;
- Program KTC_HK1;
- Uses crt;
- Var a, S: Integer;
- Writeln('Nhap a = ');
- Writeln('S = ' , S);
18 tháng 3 2020
uses crt: thư viện crt;
var a,b,c:real có nghĩa là khai báo a,b,c kiểu số thực
d,x1,x2: real là khai báo d,x1,x2 kiểu số thực
begin: bắt đầu
write('a,b,c:'); : viết(a,b,c)
readln(a,b,c); : đọc(a,b,c)
d:=b*b-4*a*c; : delta được gán bằng b bình -4 nhân a nhân c
if d<0 then writeln('phuong trinh vo nghiem'): nếu d<0 thì viết('phuong trinh vo nghiem')
else: ngược lại
gán x1,x2 lần lượt là hai nghiệm của phương trình
xuất hai nghiệm đó ra màn hình
xong rồi readln; end. có nghĩa là kết thúc chương trình
Bạn cần sửa lại chương trình hoàn chỉnh như sau :
Propram welcome ;
var a: string[10];
begin
a :='tin hoc';
writeln(length(a));
end.
Đoạn chương trình cho kết quả là 7 .
Giải thích : Lệnh in ra kết quả nhờ writeln(length(a));
length(a) : có nghĩa là độ dài của xâu a . Ở a:='tin hoc' có độ dài là 7