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.
byte là số tự nhiên có giới hạn 0 đến 255
số nguyên là integer có giới hạn là -32768 đến 32767
Program Sara_Trang;
uses crt;
Begin
Writeln('Turbo Pascal');
Readln
End.
1: uses crt;
begin
clrscr;
writeln('turbo pascal');
readln;
end.
2: uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('turbo pascal');
readln;
end.
3:
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('day la dong thu ',i,' turbo pascal');
readln;
end.
4:
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
writeln('turbo pacal');
readln;
end.
5:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i);
readln;
end.
6:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i:4);
readln;
end.
7:
uses crt;
var d,i:integer;
begin
clrscr;
d:=0;
for i:=1 to 100 do
begin
write(i:4);
inc(d);
if d mod 10=0 then writeln;
end;
readln;
end.
8:
uses crt;
var i:integer;
begin
clrscr;
writeln('cac so le trong khoang tu 1 toi 100 la: ');
for i:=1 to 100 do
if i mod 2=1 then write(i:4);
readln;
end.
9:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=0 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
10:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=1 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
B1: Trong các hoạt động sau đây hoạt động nào là hoạt động lặp với số lần chưa biết trước:
A. tính tổng các số tự nhiên từ 1 đến 20.
B. Nhập các số nguyên cho đến khi đủ 50 số
C. Mỗi ngày tập TD 2 lần
D. Nhập dữ liệu từ bàn phím cho đến khi nhập xong dữ liệu khi dừng
B2: Đoạn lệnh sau đây in ra kết quả gì?
s:=0; while s<10 do begin s:=s+1;
Writeln(s); end;
A. In ra các số từ 1 đến 9.
B. In ra các số từ 1 đến 10.
C. In ra các số 1.
D. Không có đáp án đúng.
B3: Hãy cho biết đâu là đoạn lệnh lặp bằng câu lệnh While...do để tính tổng S=1+2+...+10?
A. S:=0; while i<10 do S:=S+i;
B. S:=0; i:=0; while i<11 do begin S:=S+i; i:=i+1; end;
C. S:=0; i:=1; while i do S:=S+i; i:=i+1;
D. S:=0; i:=0; while i<=10 do begin S:=S+i; i:=i+1; end;
Câu 1:
readln hoặc read được dùng để đọc dữ liệu
Câu 2: Kiểu dữ liệu byte
Câu 3:
Có nghĩa khai báo a kiểu thực, còn b là kiểu kí tự
Chọn C