YOMEDIA
NONE

Viết ra các dòng lệnh bắt buộc phải có trong 1 chương trình pascal

  1. Em hãy viết ra các dòng lệnh bắt buộc phải có trong 1 chương trình pascal(không sử dụng biến).

  2. Em hãy viết ra các dòng lệnh bắt buộc phải có trong 1 chương trình pascal(có sử dụng biến).

  3. Em hãy viết chương trình pascal để viết ra màn hình(đen) họ tên của mình 100 lần.

  4. Em hãy viết chương trình pascal để nhập vào màn hình (đen)nhiều số nguyên(không biết bao nhiêu số) cho đến khi nào nhập số 0 thì dừng và cho biết đã nhập bao nhiêu số, không tính số 0.

  5. Em hãy viết chương trình pascal để nhập vào màn hình (đen)20 số nguyên và tính tổng các số đã nhập.

 

Theo dõi Vi phạm
ATNETWORK

Trả lời (3)

  • Hồ Ánh Dương

    Bài 4:

    uses crt;

    var a,S:longint;

    begin

    clrscr;

    writeln('Nhap so nguyen, nhan 0 de ket thuc');

    repeat

    readln(a);

    S:=S+1;

    until a=0;

    write('Ban da nhap ',S,' so ');

    readln

    end.

      bởi Hồ Ánh Dương 07/04/2020
    Like (0) Báo cáo sai phạm
    • YOMEDIA

    Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng

  • akira nguyễn

    1/

    Dòng lệnh cần là:

    Begin

    end.

    2/

    var a:longint;

    Begin

    end.

    3/

    Program BTH;

    uses crt;

    var a:string;

    i:byte;

    Begin

    clrscr;

    Write('Nhap ten: ');readln(a);

    For i:=1 to 100 do

    Writeln(a);

    readln;

    end.

    4/

    Program BTH;
    Uses Crt;
    var n,i,k:longint;
    Begin
            clrscr;
            i:=1;
            k:=0;
            n:=1;
            While n<>0 do
            Begin
            Write('Nhap so thu ',i,' : ');readln(n);
            If n<>0 then
            Begin
                    i:=i+1;
                    k:=k+1;
            end;
            end;
            Writeln('So luong so co trong day: ',k);
            readln;
    end.

    5/

    Program BTH;
    Uses Crt;
    var n,i,k:longint;
    Begin
            clrscr;
            For i:=1 to 20 do
            Begin
            Write('Nhap so thu ',i,' : ');readln(n);
            k:=k+n;
            end;
            Writeln('Tong day so tren la: ',k);
            readln;
    end.

      bởi akira nguyễn 10/04/2020
    Like (0) Báo cáo sai phạm
  • akira nguyễn

    1/

    Dòng lệnh cần là:

    Begin

    end.

    2/

    var a:longint;

    Begin

    end.

    3/

    Program BTH;

    uses crt;

    var a:string;

    i:byte;

    Begin

    clrscr;

    Write('Nhap ten: ');readln(a);

    For i:=1 to 100 do

    Writeln(a);

    readln;

    end.

    4/

    Program BTH;
    Uses Crt;
    var n,i,k:longint;
    Begin
            clrscr;
            i:=1;
            k:=0;
            n:=1;
            While n<>0 do
            Begin
            Write('Nhap so thu ',i,' : ');readln(n);
            If n<>0 then
            Begin
                    i:=i+1;
                    k:=k+1;
            end;
            end;
            Writeln('So luong so co trong day: ',k);
            readln;
    end.

    5/

    Program BTH;

      bởi akira nguyễn 17/04/2020
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 8

 

YOMEDIA
ATNETWORK
ON