Tin học Viết chương trình Pascal

[0944340896]

[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.

1. Viết chương trình Pascal tính tổng các số chẵn nhỏ hơn 100
2. Viết chương trình Pascal tính tổng các số lẻ nhỏ hơn 100
Giúp mình nhé mai mình thi học kì rồi. Mình cảm ơn các bạn!

 

[Iam_lucky_girl]

Bài 1
program bai1;
uses crt;
var i,n,s:integer;
a:array[1..100] of integer;
begin
write('nhap n=');readln(n);
for i:=1 to n do
begin
write('nhap so thu',i,':'); readln(a);
end;
s:=0;
writeln('cac so chan trong day la:');
for i:=1 to n do
if a mod 2 =0 then
begin
write(a:6);
s:=s+a;
end;
writeln('tong cac so chan la:',s);
readln;
end.

Bạn tham khảo nha
Mình bận nên chưa làm trên Pascal được TT.

 

[Minh Tín]

Bài 1
program bai1;
uses crt;
var i,n,s:integer;
a:array[1..100] of integer;
begin
write('nhap n=');readln(n);
for i:=1 to n do
begin
write('nhap so thu',i,':'); readln(a);
end;
s:=0;
writeln('cac so chan trong day la:');
for i:=1 to n do
if a mod 2 =0 then
begin
write(a:6);
s:=s+a;
end;
writeln('tong cac so chan la:',s);
readln;
end.

Bạn tham khảo nha
Mình bận nên chưa làm trên Pascal được TT.

Bạn ơi, bạn thiều điều kiện < 100.
Thêm như sau:

If (a mod 2 = 0) and (a < 100) then....