viết chương trình khai báo biến cho tính diện tích S, độ dài đường chéo DC hình chữ nhật với chiều dài và chiều rộng là số nguyên
Bài 5: Khai báo biến
Khai báo 1 biến theo kiểu thực và 1 biến theo kiểu kí tự
Var r: real; {khai báo 1 biến theo kiểu thực}
s: string; {khai báo 1 biến theo kiểu thực}
Đúng 0
Bình luận (0)
trong các khai báo nào sau đây khai báo nào không đúng?
a. var f: tExt;
b. var f: text.
c. var f: text;
d. var f, f1: text;
Giúp mình với ạ
Nhập vào dãy số nguyên có n phần tử (n<=52). Nhập vào một số nguyên k, đếm xem trong dãy có bao nhiêu số chia hết cho k. Kiểm tra lượng số chia hết cho k là chẵn hay lẻ
var n,i,k,d: integer;
a:array[1..52] of integer;
begin
write('Nhap so N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
write('Nhap so k: '); readln(k);
d:=0;
for i:=1 to n do
if a[i] mod k = 0 then d:=d+1;
writeln('Co ',d,' so chia het cho ',k,' trong day');
if d mod 2 = 0 then writeln('Chan') else writeln('Le');
end.
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..52]of integer;
i,n,k,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=52);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i] mod k=0 then inc(dem);
writeln('Trong day co ',dem,' so chia het cho ',k);
if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')
else writeln('So luong so chia het cho ',k,' la so le');
readln;
end.
Đúng 0
Bình luận (0)
Ai giải giúp em bài này với ạ😭
Viết chương trình nếu a,b >0 thì tính và in ra màn hình tích của a,b ngược lại hiển thị yêu cầu nhập lại
Xem chi tiết
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('Nhap a,b');
Realn(a,b);
If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)
else writeln('Yeu cau nhap lai');
Readln;
End.
Đúng 2
Bình luận (1)
Ai giải giúp em bài này với ạ😭
Viết chương trình nhập vào số a . Kiếm tra nếu a>0 thì tính và đưa ra màn hình diện tích hình tròn. Ngược lại hiển thị bạn nhập sai
Xem chi tiết
Viết công thức giải phương trình nhập vào 2 số nguyên , tính tổng và tích 2 số đó và kiểm tra xem tổng và tích có chia hết cho 5 và 9 không
Xem chi tiết
var a,b,s,p:integer;beginwrite('a=');readln(a);write('b=');readln(b);s:=a+b;p:=a*b;writeln(' Tong la: ',s);writeln(' Tich la: ',p);if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')else writeln(' Tong k chia het cho 5 va 9 ');if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')else writeln(' Tich k chia het cho 5 va 9');readln;end.
Đúng 0
Bình luận (0)
var a,b,s,p:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
s:=a+b;
p:=a*b;
writeln(' Tong la: ',s);
writeln(' Tich la: ',p);
if (s mod 5=0) and (s mod 9=0) then writeln(' Tong chia het cho 5 va 9 ')
else writeln(' Tong k chia het cho 5 va 9 ');
if (p mod 5=0) and (p mod 9=0) then writeln(' Tich chia het cho 5 va 9')
else writeln(' Tich k chia het cho 5 va 9');
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng các số chẫn trong dãy số liên tục tục từ 1 đến N(N được nhập từ bàn phím) kết quả được ghi ra màn hình)
Xem chi tiết
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan trong khoang tu 1 toi ',n,' la: ',t);
readln;
end.
Đúng 0
Bình luận (0)
Phát biểu nào sau đây là sai:
A. Dữ liệu kiểu byte có 256 giá trị từ 0, 1, 2, …, 255.
B. Kiểu dữ liệu của biến phải là kiểu dữ liệu chuẩn.
C. Trong Pascal các biến cùng kiểu có thể được khai báo trong cùng một danh sách biến, các biến cách nhau bởi dấu phẩy.
D. Cách khai báo biến trong ngôn ngữ lập trình khác nhau có thể khác nhau.
