1/ Viết chương trình nhập vào số N bất kỳ nếu N<=0 thì yêu cầu nhập lại cho đến khi N>0 rồi tính và đưa ra 4 lần diện tích hình vuông có cạnh là N. 2/ viết CT nhập vào 2 số M và N ( là 2 số nguyên dương M<N ) tính và đưa ra tổng và tích của các số lẻ từ M đến N. Mình sẽ vot

chungchungchung

2 năm trước

1/ Viết chương trình nhập vào số N bất kỳ nếu N<=0 thì yêu cầu nhập lại cho đến khi N>0 rồi tính và đưa ra 4 lần diện tích hình vuông có cạnh là N. 2/ viết CT nhập vào 2 số M và N ( là 2 số nguyên dương M<N ) tính và đưa ra tổng và tích của các số lẻ từ M đến N. Mình sẽ vote 5 sao ạ.

Loga Sinh Học lớp 12

0 lượt thích 28 xem

1 trả lời

Thích Trả lời

Minh123

program bai1;

uses crt;

var i,n:integer;

begin

clrscr;

repeat

write('Nhap n:');

readln(n);

until n>0;

for i:=1 to 4 do

writeln('Dien tich la: ',n*n);

readln

end.

program bai2;

uses crt;

var n,m,s:integer;

t:int64;

begin

clrscr;

write('Nhap m: '); readln(m);

write('Nhap n: '); readln(n);

s:=0; t:=1;

for i:=m to n do

if i mod 2=1 then

begin

s:=s+i;

t:=t*i;

end;

writeln('tong la: ',s);

write('Tich la: ',t);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

dominhanh2609

câu 1:

uses crt;

var i,n: longint;

begin

clrscr;

repeat

write('Nhap n: '); readln(n);

until n>0;

for i:=1 to 4 do

writeln('Dien tich la: ',n*n);

readln;

end.

câu 2:

uses crt;

var n,m,s:integer;

t:longint;

begin

clrscr;

s:=0;

t:=1;

write('Nhap m: '); readln(m);

write('Nhap n: '); readln(n);

for i:=m to n do

if i mod 2=1 then

begin

s:=s+i;

t:=t*i;

end;

writeln('tong cua m va n la: ',s);

write('Tich cua m va n la: ',t);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

▀▄▀▄Bài này dễ lè▄▀▄▀ ▀▄▀▄Bài 5 ạ..........▄▀▄▀

Em đang cần gấp mọi người ai giải được k giải hộ e với

Sao tui xin vào bđhh từ tuần trc hay j ý mà chờ mãi ko thấy j hết lun:( Vẽ anime buồn bã😞

Cho hình lăng trụ ABC.A'B'C'. Gọi M là trung điểm của BB' . G là trọng tâm tam giác ABC. Tìm thiết diện tạo bởi ( A'MG) cắt hình lăng trụ, và giao tuyến của mp ( A'MG) với (A'B'C').

Bài 1 : Cho hình chữ nhật ABCD có AB=6cm và BC=4cm . Trên BC lấy điểm M,trên DC lấy điểm N sao cho M,N là trung điểm của cạnh BC và DC.Tính diện tích hình tam giác AMN ? Bài 2 :Hình tam giác ABC có diện tích 180 cm2 . Nếu kéo dài BC thêm 1 đoạn CD bằng 4cm thì diện tích gình tâm giác ABC là 210cm2 . Tính độ dài cạnh BC .

giải 10 câu . Đốt 5,4 (g) Al trong O2 a. Tính Vo2 b. Tính Msp 10 câu khác nhau

ai hộ mk 2 bài này với ạ, làm được bài nào trước cho mk xin nhá ( thanks nhiều )

Một khối nhôm có thể tích 8dm3 . Biết khối lượng riêng của nhôm là 2700kg/m3 a) hãy tính khối lượng và trọng lượng của khối nhôm đó ? b) Bây giờ người ta khoét rỗng một phần của khối nhôm để cho trọng lượng khối nhôm chỉ còn 135N . Tính thể tuchs của phần rỗng đó

giải thích giúp mình câu c bài này,

Mn ơi acc phụ của kem đây nhó <3 Vẽ anime cute full màu điiii (mà ko màu cx đc, nhẹ tay hoi còn đc hóng tranh các idol hí hí) Nhớ cấm thief, sp, ko kí.... Vi phạm cút dùm :)

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến