1. Nhập danh sách số lượng học sinh chiều cao của các bạn trong lớp 5A. Biết chiều cao đó lớn hơn 90 cm, bé hơn 150 cm. In ra danh sách kết quả bạn có chiề
Lời giải 1 :
Pascal nhé bạn
Câu 1:
var a, temp, i, max, min, vtmax, vtmin, n: byte;
begin
write('Nhap so luong hoc sinh: ');
readln(n);
min:=190;
for i:=1 to n do
begin
write('Nhap chieu cao cua hoc sinh thu ',i,': ');
readln(temp);
if (max<temp) then
begin
max:=temp;
vtmax:=i;
end;
if (min>temp) then
begin
min:=temp;
vtmin:=i;
end;
end;
write('Hoc sinh co chieu cao cao nhat nam o vi tri ',vtmax,', co chieu cao la: ',max);
write('Hoc sinh co chieu cao thap nhat nam o vi tri ',vtmin,', co chieu cao la: ',min);
readln
end.
Câu 2:
var i,hc: byte;
begin
for i:=10 to 99 do
begin
hc:=i div 10;
if ((i mod hc = 2) and (i div hc = 11)) then writeln(i);
end;
readln
end.
Câu 3:
var i,hc: byte;
begin
for i:=10 to 99 do
begin
hc:=i mod 10;
if (hc <> 0) then
if ((i mod hc = 6) and (i div hc = 13)) then writeln(i);
end;
readln
end.
Câu 4:
var i: byte;
begin
for i:=10 to 99 do
begin
if (((900+i) div i = 16) and ((900+i) mod i = 0)) then writeln(i);
end;
readln
end.
Câu 5:
Con số nó hơi to.
Thảo luận
Lời giải 2 :
Câu 1:
var a, temp, i, max, min, vtmax, vtmin, n: byte;
begin
write('Nhap so luong hoc sinh: ');
readln(n);
min:=190;
for i:=1 to n do
begin
write('Nhap chieu cao cua hoc sinh thu ',i,': ');
readln(temp);
if (max<temp) then
begin
max:=temp;
vtmax:=i;
end;
if (min>temp) then
begin
min:=temp;
vtmin:=i;
end;
end;
write('Hoc sinh co chieu cao cao nhat nam o vi tri ',vtmax,', co chieu cao la: ',max);
write('Hoc sinh co chieu cao thap nhat nam o vi tri ',vtmin,', co chieu cao la: ',min);
readln
end.
Câu 2:
var i,hc: byte;
begin
for i:=10 to 99 do
begin
hc:=i div 10;
if ((i mod hc = 2) and (i div hc = 11)) then writeln(i);
end;
readln
end.
Câu 3:
var i,hc: byte;
begin
for i:=10 to 99 do
begin
hc:=i mod 10;
if (hc <> 0) then
if ((i mod hc = 6) and (i div hc = 13)) then writeln(i);
end;
readln
end.
Câu 4:
var i: byte;
begin
for i:=10 to 99 do
begin
if (((900+i) div i = 16) and ((900+i) mod i = 0)) then writeln(i);
end;
readln
end.
Xin hay nhất
@Sa blckpink
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 5
Lớp 5 - Là năm cuối cấp tiểu học, áp lực thi cử nhiều mà sắp phải xa trường lớp, thầy cô, ban bè thân quen. Đây là năm mà các em sẽ gặp nhiều khó khăn nhưng các em đừng lo nhé mọi chuyện sẽ tốt lên thôi !
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK