Số lẻ trong pascal

uses crt;
var a:array[1..10001] of longint;
        n,i,chan,le:longint;
begin
clrscr;
readln[n];
for i:=1 to n do begin writeln['a[',i,']='];readln[a[i]];end;
for i:=n downto 1 do if a[i] mod 2=0 then chan:=a[i] else le:=a[i];
writeln['so chan dau tien= ',chan];
write['so le dau tien= ',le];
readln;
end.

Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do

Xem chi tiết

T

thisismedinh@yahoo.com.vn

• 24 Tháng tư 2015

• #1

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn

Chắc suất Đại học top - Giữ chỗ ngay!!ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình con tính tổng các số lẻ trong dãy số từ 1 đến n

 

B

bm.stromray

• 24 Tháng tư 2015

• #2

var i,n,s:integer;
begin
s:=0;
write['Nhap so n:'];readln[n];
i:=1;
while i