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.
b)
uses crt;
var i,y:integer;
begin
clrscr;
y:=0;
for i:=1 to 100 do
y:=y+i;
writeln('y=',y);
readln;
end.
c)
uses crt;
var y,i:integer;
begin
clrscr;
y:=0;
i:=1;
while y<=3200 do
begin
y:=y+i;
inc(i);
end;
writeln('y=',y);
readln;
end.
program TinhDienTichHinhTron;
var
fIn, fOut: Text;
r: Integer;
dien_tich: Real;
begin
Assign(fIn, 'dt_ht.inp');
Reset(fIn);
Readln(fIn, r);
Close(fIn);
Assign(fOut, 'dt_ht.out');
Rewrite(fOut);
dien_tich := Pi * r * r;
Writeln(fOut, FormatFloat('0.00', dien_tich));
Close(fOut);
end.
PI = 3.14 R = float(input('Nhap ban kinh: ')) S = PI * R ** 2 print('Diện tích hình tròn bán kính', R, 'là:', S)
Các lỗi cú pháp đã được sửa:
Dòng thứ nhất: "PI= 3.14;" -> "PI = 3.14" (loại bỏ dấu chấm phẩy dư thừa)
Dòng thứ ba: "R=float(input('Nhap ban kinh: ')" -> "R = float(input('Nhap ban kinh: '))" (thiếu dấu đóng ngoặc ')' ở cuối dòng)
Dòng thứ ba: "S : PI*R**2" -> "S = PI * R ** 2" (thay dấu ':' bằng dấu '=' để gán giá trị của biểu thức)
Dòng thứ năm: "print('Diện tích hình tròn bán kính', r ' là: ',S)" -> "print('Diện tích hình tròn bán kính', R, 'là:', S)" (thay 'r' bằng 'R' để in giá trị của bán kính)
uses crt;
var kt:boolean;
st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
kt:=true;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=false;
if kt=true then writeln('Day la xau doi xung')
else writeln('Day khong la xau doi xung');
readln;
end.
Không thể dùng bảng tính để soạn thảo đơn xin phép nghỉ học, mà thay vào đó là dùng chương trình soạn thảo văn bản như Word,... Những ví dụ cụ thể để sử dụng chương trình bảng tính để quản lý dữ liệu như dữ liệu kê khai y tế, cơ sở dữ liệu giáo viên của trường học, cơ sở dữ liệu điểm thi,...