Câu 1: Viết chương trình nhập vào từ bàn phím một số nguyên dương m (m>4). In ra màn hình các ước số của m. Câu 2: Viết chương trình: a. Nhập một dãy số nguyên n phần tử. b. Hiển thị dãy số vừa nhập. c. Tính và in ra màn hình tổng giá trị các phần tử dương và chẵn của dãy số. (m

188535412862107

2 năm trước

Câu 1: Viết chương trình nhập vào từ bàn phím một số nguyên dương m (m>4). In ra màn hình các ước số của m. Câu 2: Viết chương trình: a. Nhập một dãy số nguyên n phần tử. b. Hiển thị dãy số vừa nhập. c. Tính và in ra màn hình tổng giá trị các phần tử dương và chẵn của dãy số. (mik cần rất gấp cho buổi chiều kt bài tập để cô lấy điểm ạ!!)vote 5 sao nếu đúng!!!! cảm ơn mn nha~

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

ahihidongu012128

Câu 1: uese crt;

var m, i: integer;

begin

while m <4 do begin

writeln ('Nhap so nguyen duong m ='); readln (m); end;;

writeln('Cac uoc cua m la:');

for i: = 1 to m do

if m mod i = 0 then write(i: 4);

readln;

end.

Ca2

uese crt;

var a: array [1..100] of integer;

i, n, s, d: integer;

begin

clrscr;

writeln('Nhap so phan tu day:'); readln(n);

for i: = 1 to n do begin

writeln('Nhap so thu',i,':') readln(a[i]);

end; writeln('Day vua nhap la:');

for i: = 1 to n do

write (a [i]);

for i: = 1 to n do

if a[i]> 0 thì s:=s+a[i];

i:=0;

for i: = 1 to n do

if a[i] mod 2 = 0 then d:=d+a[i];

writeln('Tong cac phan tu duong la:',s);

writeln('Tong cac phan chan la:',d);

readln;

end.

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

Mylinh2803

câu 1:

program ct;

uses crt;

var m,i:integer;

begin

clrscr;

while m<4 do

begin

write('nhap m:=');readln(m);

end;

for i:=1 to m do

if m mod i=0 then writeln('uoc cua m la',m);

readln

end.

câu 2:

program ct;

uses crt;

var i,n,s:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

writeln('day so vua nhap la:');

for i:=1 to n do

write(A[i],'');

s:=0;

for i:=1 to n do

if A[i]>0 then s:=s+A[i]

if A[i] mod 2=0 then s:=s+A[i];

writeln('tong cac so duong la:',s);

writeln('tong cac so chan la:',s);

readln

end.

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

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

Tổng hai số bằng 19/6.Hiệu hai số bằng 11/6 .Tìm hai số đó

khi nhiệt độ của các chất rắn, lỏng, khí tăng lên hoặc giảm xuống thì đại lượng nào sau đây sẽ thay đổi và thay đổi như thế nào: độ dài, thể tích, khối lượng, khối lượng riêng, trọng lượng riêng, lực, trọng lực, trọng lượng

hãy so sánh cấu tạo của vi khuẩn với nấm rơm

Mọi giúp em gải câu 4 với mn em cảm ơn nha

Viết đoạn văn có sử dụng phép liệt kê (chỉ rõ) và nêu tác dụng của phép liệt kê đó

Tính độ biến thiên động năng của vật có khối lượng m=2kg đang chuyển động với vận tốc 3m/s thì chịu tác dụng lực làm vận tốc là 9m/s

cho tam giác ABC vuông tại A có AB =9cm; BC=15cm; lấy M thuộc BC sao cho CM=4cm, vẽ Mx vuông góc với BC cắt AC tại N . chứng minh CM*AB=MN*CA

Bn nào giải hộ mình câu này với chiều mình thi rồi 😢

Read anh full in the gap to complete the passage Easter in ấn important christian festival and holiday.Tt is(1) to celebrate the resurection of Jesus Christ.peo celebrate Easter(2) thể world In the UK, Easter is a pubic holiday.people(3)Easter chocolate eggs to their friends and family.In thể us, Easter is a (4) holiday Around ,held, give, most, national Tôi cần gấp trả lời nhanh tôi cho 5 sao ok

Mn người giúp em giải câu 3 này với ạ

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