Bài 1.viết ct nhập vào n số tự nhiên đầu tiên .tính tổng các số chẵn trong dãy số và in ra màn hình. Bài 2.viết ct pascal nhập 1 mảng các số nguyên bất kì ghi ra màn hình các số dương và chẵn có trong mảng

702916596908568

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 36 xem

1 trả lời

Thích Trả lời

lymgatto0403

Câu 1:
uses crt;
var a:array[1..100] of integer;n,i:integer;s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>1 then s:=s+a[i];
write('Tong cac so chan: ',s);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100] of integer;n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>1 then write(a[i],' la so chan.');
readln;
end.

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

nghianhanduc

program mmm;

uses crt;

var n,i,s:longint;

begin

writeln('nhapn =');readln(n);

i:=2;

while i>= n do

begin

s:=s+i;

i:=i+2;

end .

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

n,i:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then

write(a[i],' ');
readln;
end.

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

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

câu 8: (như trên ảnh)phần mặt sau: end. êm hãy trả lời các câu hỏi sau : a. Tên tham số hình thức b. Tên tham số thực sự c. Tên biến cục bộ d. Tên biến toàn cục

Làm cho mình câu 2 với câu 3 với ạ

vẽ hình đa giác trong ms logo theo kiểu repaet

Tìm x: a) 2/3 . x - 1/2 . x = 5/12 b) ( 2 và 4/5 . x - 50 ) : 2/3 = 51

Khối 6 của 1 trường có 366 h/s, gồm 8 lớp. Mỗi lớp gồm 1 số tổ, mỗi tổ có 9 hoặc 10 người . biết rằng số tổ của các lớp là bằng nhau, tính số tổ có 9 người, số tổ có 10 người của cả khối. Giải chi tiết

Bùng nổ dân số là nỗi lo của nhiều nước trên TG, là nguyên nhân dẫn đến tình trạng nào? A. Đời sống nâng cao B. Kinh tế phát triển C. Thất học đói nghèo D. 1 cách qua loa

Câu 4: (2 điểm) a) Cần phải 200 gam dung dịch muối ăn 5%? lấy bao nhiêu gam muối ăn và bao nhiêu gam nước để pha chế thành b) Xác định độ tan của muối Na 2 CO 3 trong nước ở 180C. Biết rằng ở nhiệt độ này khi hòa tan hết 53 gam Na 2 CO 3 trong 250 gam nước thì được dung dịch bão hòa.

Chiều dài của hai thanh bằng đồng và sắt ở 0℃ là 20m. Hỏi khi nhiệt độ tăng lên 40℃ thì chiều dài của hai thanh hơn kém nhau bao nhiêu? Thanh nào dãn nở vì nhiệt nhiều hơn? Biết rằng khi nhiệt độ tăng lên 1oC thì chiều dài thanh sắt tăng thêm 0,000012 chiều dài ban đầu; Chiều dài thanh đồng tăng thêm 0,000018 chiều dài ban đầu. trả lời đúng dễ hiểu với các kiến thức lớp 6 giải rõ nếu không sẽ bị xóa câu tả lời

Một thỏi đồng 200 g được nung nóng đến 200 độ c rồi thả vào trong ca nước có nhiệt độ 50 độ C khi cân bằng nhiệt nhiệt độ của chúng là 70 độ C tìm khối lượng nước có trong ca .biết nhiệt dung riêng của đồng là 380 jun /kg.K,của nước là 4.200 jun/kg.K

Theo em cần phải làm gì để ngăn chặn việc khai thác tận diệt nguồn thủy sản(hãy viết 1 đoạn văn khoảng 100 từ) Huhu chiều nay em thi rồi ạ

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