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
2 câu trả lời
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.
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