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.

10 tháng 1 2022

clrscr;

10 tháng 1 2022

Tham khảo:

-lệnh dùng để xóa màn hình làm việc:

Uses Crt ; { khai báo thư viện hàm }

Clrscr; { lệnh xóa màn hình kết quả }

- hai lệnh này dùng song song vs nhau nha.

VD:

Program vi_du;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

write('nhap so n ='); readln(n);

s:=0;

for i:= 1 to n do

s:=s+i;

writeln(s :4:2);

readln;

end.

24 tháng 12 2021

A sai bởi vì có kí tự trống giữa "Baitap" và "3"

25 tháng 12 2021

Chọn A

4 tháng 12 2021

Var a: integer 

4 tháng 12 2021

 

Khai báo nào sau đây là hợp lệ :Var a: interger ; Var a: integer ; Var a = interger ; Var a := interger ;

 

Chọn B

24 tháng 12 2021

1d. Var R = 30 ;2 d Var x=10000;3d 4d

8 tháng 5 2023

         Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;   | sửa: i:=1; t:=0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;       | Sửa: i:=i+1;

-> Thiếu. Thêm: End;

      write('Tong = ', t);

             Readln;

             end.

var ends:string;