Dãy kí tự 20n10 thuộc kiểu dữ liệu
A. Real
B. Integer
C. String
D. Char
Dãy kí tự 20n10 thuộc kiểu dữ liệu
A. Real
B. Integer
C. String
D. Char
viếtchương trình nhập ba số bất kì. tính và xuất tổng số lớn nhât và số nhỏ nhất trong ba số đó
program bai1;
vả a,b,c:longint;
begin
write('Nhap so thu nhat');readln(a);
write('Nhap so thu hai);readln(b);
write('Nhap so thu ba');readln(c);
max:=a;min:=a;
if (max<b) and (min>b) then
begin
max:=b;
min:=b;
end;
else if (max<c) and (min>c) then
begin
max:=c;
min:=c;
else begin
max:=a;
min:=a;
end;
writeln('So lon nhat la ',max);
writeln('So be nhat la ',min);
readln
end.
viết chương trình có sử dụng câu lệnh điều kiện và câu lệnh lặp:
1) viết chương trình kiểm tra tính chẵn lẻ;
2)viết chương trình tính tổng n số tự nhiên đầu tiên;
3)viết chương trình tính tổng các số chẵn , lẻ của n số tự nhiên đầu tiên
Các bạn giúp mình với
1:if n mod 2=0 then { n là số chẵn } else { n là số lẻ };
2:for i:=1 to n do tong:=tong+i;
3:for i:=1 to n do
if i mod 2=0 then tongchan:=tongchan+i else tongle:=tongle+i;
Tính
a, 2 DIV 3-2 MOD 3+3 DIV 2-3 MOD 2
b,1/2-2*7 MOD 2-8 DIV 4*4
a, 2 DIV 3-2 MOD 3+3 DIV 2-3 MOD 2 = -2
b,1/2-2*7 MOD 2-8 DIV 4*4 = -7.5
Viết chương trình nhập 3 số từ bàn phím và hiển thị kết quả ra màn hình tổng và tích của 3 số đó
program tinhtoan;
uses crt;
var x,y,z:integer;
begin write('nhap x=');
readln(x);
write('nhap y= ');
readln(y);
write('nhap z= ');
readln(z);
write(' Tong 3 so la: ');
writeln(x+y+z);
write(' Tich 3 so la: ');
writeln(x*y*z);
readln
end.
Viết chương trình nhập vào 2 số nguyên a và b. Tính tổng của hai số đó. Tổng đó
là số chẵn hay số lẻ?
var a,b,i,tong:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
tong:=a+b;
writeln(' Tong la: ',tong);
if (tong mod 2=0) then writeln(' Tong la so chan ')
else write(' Tong la so le: ');
readln;
end.
uses crt;
var t,a,b:integer;
begin
clrscr;
readln(a,b);
t:=a+b;
if (t mod 2) = 0 then writeln('Tong la so chan')
else writeln('Tong la so le');
readln
end.
Tạm ngừng chương trình trong một khoảng thời gian nhất định là gì? Tạm ngừng cho đến khi người dùng nhấn phím là gì?
trong khoảng thời gian nhất định là: writeln('') và delay(số thời gian *1000)
trong khoảng thời gian cho đến khi nhấn phím là: readln
Viết chương trình tính diện tích hình tròn,biết bán kính được nhập từ bàn phím.
Trả lời:
Program S_Hinh_Tron;
Uses Crt;
Var r,S:real;
Begin
Clrscr;
Writeln(‘TINH DIEN TICH HINH TRON:’);
Write (‘Nhap ban kinh R=’);readln(r);
dt:=pi*r*r;
Writeln(‘Dien tich hinh tron la:’,dt:6:2);
Readln;
End.
Chúc bạn học tốt!
Program dthinhtron;
uses crt;
var r,s:real;
begin
clrscr;
writeln('Nhap ban kinh r: ');
readln(r);
s:=r*r*PI;
writeln('dien tich hin tron la: ',s:8:3,'m2);
readln
end.
var r,dt:real;
begin
writeln('Nhap ban kinh r: ');readln(r);
dt:=r*r*pi;
writeln('dien tich hinh tron la: ',s:6:2);
readln;
end.
hãy xác định kết quả của biểu thức sau đây
a) 15-8>3
b) (20-15)^2 khác 25
c) 11^2=121
d) x>10-3x
giúp mình nha đang cần gấp
a/ True
b/ False
c/ True
d/ Phụ thuộc vào giá trị cụ thể của x
mô tả thuật toán giặt quần áo
chỉ có thuật toán này thôi chứ không có thuật toán giặt quần áo