Có ai chỉ cho mình viết pascal hệ thống thêm điểm không, bài tập nâng cao nhé! VD: Nhập tên của người bạn cần tìm: Bisky Nhập điểm bạn muốn thê

Question

Có ai chỉ cho mình viết pascal hệ thống thêm điểm không, bài tập nâng cao nhé!
VD: Nhập tên của người bạn cần tìm: Bisky
Nhập điểm bạn muốn thêm: 1
THONG Bao: Bisky vừa được +1 điểm

in progress 0
Eden 2 tuần 2021-08-28T05:48:20+00:00 2 Answers 2 views 0

Answers ( )

    0
    2021-08-28T05:49:28+00:00

    Ngôn ngữ lập trình à bạn?

    while a <> b do WriteLn(‘Chao Ban’);

    if a > b then

    writeln(‘Thoa man dieu kien’)

    else

    writeln(‘Khong thoa man dieu kien’);

    for i:= 1 to 10 do writeln(‘La(.p: ‘, i:1);

    repeat a:= a + 1 until a = 10;

    VD THÔI NHA

    0
    2021-08-28T05:49:31+00:00

    uses crt; {khai bao’ thu vien crt}

    var n,i,dem:integer;

    BEGIN

    clrscr;{ cau lenh xoa man hinh};

    write(‘Nhap n: ‘);readln(n);

    dem:=0;

    for i:=1 to n do

    begin

    if i mod 2=0 then

    begin

    write(i:4);

    dem:=dem+1;

    end;

    if dem=15 then

    begin

    dem:=0;

    writeln;{in duoc 15 so thi xuong dong};

    end;

    end;

    readln

    END.

Leave an answer

Browse

35:5x4+1-9:3 = ? ( )