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.
Câu 1
uses
crt;
var a : integer;
begin
clrscr;
write('nhap a ='); readln(a);
if a mod 2 = 0 then writeln('la so chan ') else
writeln('la so le ');
readln;
end.
1:
uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n>=0 then begin
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
end
else writeln('vui long nhap so tu nhien');
readln;
end.
2:
uses crt;
var d,r,cv,dt:integer;
begin
clrscr;
write('nhap chieu dai:'); readln(d);
write('nhap chieu rong:'); readln(r);
if (d>0) and (r>0) and (d>=r) then
begin
cv:=(d+r)*2;
dt:=d*r;
writeln('chu vi la: ',cv);
writeln('dien tich la: ',dt);
end
else writeln('vui long nhap lai');
readln;
end.
a) var a,b,S : real ;
begin
write('nhap chieu dai'); readln(a);
write('nhap chieu rong'); readln(b);
S:=a*b ;
write('dien tich la',S);
readln
end.
b) var r,S : real ;
begin
write('nhap ban kinh'); readln(r);
S:=r*r*3.14 ;
write('dien tich la',S);
readln
end.
Các kiểu dữ liệu của các biến cần khai báo :
a) a, h : integer
S : real
Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.
b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )
7:
a)
uses crt;
var a,h:integer;
s:real;
begin
clrscr;
write('nhap do dai canh a:'); readln(a);
write('nhap do cao :'); readln(h);
s:=(a+h)/2;
writeln('dien tich tam giac la: ',s:4:2);
readln;
end.
b)
uses crt;
var a,b,c,d:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
c:=a div b;
d:=a mod b;
writeln(a,' chia ',b,' co thuong la: ',c);
writeln(a,' chia ',b,' co so du la: ',d);
readln;
end.
uses crt;
var a:array[1..1000]of integer;
i,n,tb,t,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln('Trung binh cong cac phan tu cua day la: ',tb/n:4:2);
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln('Tong cac so le cua day la: ',t);
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
writeln('Gia tri lon nhat la: ',max);
readln;
end.
Các kiểu dữ liệu của các biến cần khai báo :
a) a, h : integer
S : real
Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.
b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )
Các kiểu dữ liệu của các biến cần khai báo :
a) a, h : integer
S : real
Giải thích lý do S không thể là integer : a , h có thể là số nguyên, S=a*h/2 ; a * h chưa chắc là 1 số chẵn nên chia 2 có thể ra số thập phân.
b) c, d : integer ( phần nguyên và phần dư đều là số nguyên )
Program Hinh_hop_chu_nhat;
Uses crt;
Var d,r,h,sxq,stp,v:real;
Begin
clrscr;
Write('Nhap chieu dai:'); Readln(d);
Write('Nhap chieu rong:'); Readln(r);
Write('Nhap chieu cao:'); Readln(h);
sxq:=(d*r)*2*h;
stp:=sxq+2*d*r;
v=d*r*h;
Writeln('Dien tich xung quanh la:',sxq);
Writeln('Dien tich toan phan:',stp);
Writeln('The tich la:',v);
Readln
End.
Đề bạn cần hỏi gì ?