Hợp tác xã nông nghiệp Diễn Thành triển khai canh tác 2 loại giống cây trồng chủ đạo trong năm 2002 là dưa hấu và lạc . Em hãy viết chương trình nhập vào sản lượng thu hoạch của từng giống cây theo hộ gia đình và in ra sản lượng thu hoạch của mỗi hộ gia đình trong hợp tác xã năm đó ? (Tổng)
Ôn tập cuối năm
viết chương trình nhập vào điểm môn toán của hai bạn mạnh và thanh hãy so sánh điểm của hai bạn và thông báo kết quả ra màn hình (điểm nhập vào nhỏ hơn hoặc bằng 10)
program SoSanhDiem;
var
DiemManh, DiemThanh: real;
begin
write('Nhap diem cua ban Manh: ');
readln(DiemManh);
write('Nhap diem cua ban Thanh: ');
readln(DiemThanh);
if DiemManh > DiemThanh then
writeln('Ban Manh dat diem cao hon ban Thanh.')
else if DiemManh < DiemThanh then
writeln('Ban Thanh dat diem cao hon ban Manh.')
else
writeln('Hai ban dat diem bang nhau.');
readln;
end.
Đúng 2
Bình luận (0)
viết trương trình nhập vào một dãy N số nguyên . Đếm các số chẵn có trong dãy
Program HOC24;
var d,i,n: integer;
a: array[1..1000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
d:=0;
for i:=1 to n do if a[i] mod 2=0 then d:=d+1;
write('Co ',d,' so chan trong day');
readln
end.
Đúng 2
Bình luận (0)
Đề 1 Câu 1 (3.0 điểm): Viết chương trình nhập vào số nguyên dương N và thực hiện tính tổng S=3+5+7+..+(2n+1). Câu 2 (7.0 điểm): a. Viết chương trình nhập vào một dãy số nguyên có n phần tử. b. Đưa ra màn hình các phần tử có giá trị âm ở trong dãy. c. Tìm phần tử lớn nhất có trong dãy
Câu 1:
var i,n:integer;
s:longint;
begin
Write('n = ');readln(n)
for i:=1 to n do
s:=s+2*i+1;
write('tong la: ',s);
readln
end.
Đúng 1
Bình luận (0)
Câu 2
Bài 5:
Var b:array:[1..1000] of integer;
i,n,max:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(b[i]);
End;
Write('Cac phan tu am la: ');
For i:=1 to n dko
if b[i]<0 then write(b[i]:8);
writeln;
max:=b[1];
For i:=2 to n do
If b[i] > max then max:=b[i];
write('So lon nhat la ',max);
Readln
End.
Đúng 1
Bình luận (0)
cho dãy số nguyên a và nhập số nguyên .hãy xóa một số lớn hon trong dãy .in dãy số đó là số chẵn
8 tháng 5 2023 lúc 19:42
A[i] :21; A[2]: 5; A[3]:18; A[4]:19; S:0;For i:1 to 4 do If A[i] mod 3 0 thenS:S+A[i];Write(s); Cho biết kết quả in ra là bao nhiêu sau khi thực hiện đoạn chương trình bên?A.0 B.27 C.39 D.63Giúp mình với. Mình cần gấp. Cảm ơn
Đọc tiếp
A[i] :=21; A[2]:= 5; A[3]:=18; A[4]:=19;
S:=0;
For i:=1 to 4 do
If A[i] mod 3 = 0 then
S:=S+A[i];
Write(s);
Cho biết kết quả in ra là bao nhiêu sau khi thực hiện đoạn chương trình bên?
A.0 B.27 C.39 D.63
Giúp mình với. Mình cần gấp. Cảm ơn
thực hiện khai báo một mảng A gồm 50 phân tử là số học , khia thác mảng dãy số gồm 100 phần là số nguyên
helpp me!!
Khai báo mảng gồm 50 phần tử số học:
var A: array[1..50] of integer;
Khai thác là sao bạn nêu rõ hơn đề nha? Khai tháng dãy số gồm 100 phần là số nguyên là sao nhỉ?
Đúng 1
Bình luận (0)
Câu 1 Viết chương trình nhập điểm kiểm tra học kỳ môn Anh cho m học sinh và in ra màn hình. Với m và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).
Đọc tiếp
Câu 1 Viết chương trình nhập điểm kiểm tra học kỳ môn Anh cho m học sinh và in ra màn hình. Với m và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng).
Var a:array:[1..1000] of real;
i,m:integer;
Begin
Write('m = ');readln(m);
For i:=1 to m do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to m do
Write(a[i]:10:2);
Readln
End.
Đúng 1
Bình luận (0)
Câu 2 Viết chương trình nhập một mảng số nguyên A có độ dài 50 phần tử với số lượng phần tử được nhập từ bàn phím. Thực hiện in ra màn hình các số lẻ có trong mảng.
Đọc tiếp
Câu 2 Viết chương trình nhập một mảng số nguyên A có độ dài 50 phần tử với số lượng phần tử được nhập từ bàn phím. Thực hiện in ra màn hình các số lẻ có trong mảng.
Var a:array:[1..50] of integer;
i:integer;
s:longint;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then
s:=s+a[i];
End;
Write('Tong cac so le la: ',s);
Readln
End.
Đúng 1
Bình luận (0)
Các bạn giúp mình bài này nha
Nhập vào số nguyên dương n từ bàn phím đếm xem có bao nhiêu số nguyên tố <=n đã cho in các nguyên tố ra màn hình(giai thich cac bc)
program DemSoNguyenTo;
var
n, i, j, count: integer;
isPrime: boolean;
begin
write('Nhap so nguyen duong n: ');
readln(n); // Nhập số nguyên dương n từ bàn phím
writeln('Cac so nguyen to <= ', n, ' la: ');
count := 0; // Khởi tạo biến đếm số lượng số nguyên tố
for i := 2 to n do // Duyệt qua các số từ 2 đến n
begin
isPrime := true; // Giả sử số hiện tại đang xét là số nguyên tố
// Duyệt qua các ước của số hiện tại để kiểm tra số nguyên tố
for j := 2 to round(sqrt(i)) do
begin
if i mod j = 0 then
begin
isPrime := false; // Nếu có ước thì không phải là số nguyên tố
break;
end;
end;
if isPrime then // Nếu số hiện tại là số nguyên tố
begin
writeln(i); // In ra số nguyên tố đó
count := count + 1; // Tăng biến đếm số lượng số nguyên tố lên 1
end;
end;
writeln('Tong so nguyen to <= ', n, ' la: ', count);
end.
Đúng 1
Bình luận (0)