Tin học Chương trình pascal

[danghaikcr]

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

bài 1 : vct tính tổng các số lẻ
bài 2 : vct tính giai thừa của từ 1 đến n
bài 3 : vct tính tổng n số sao cho tổng nhỏ hơn 1500. in ra màn hình số cuối của dãy và tổng

 

[khai221050]

uses crt;
var ....
begin
//bài 1
writeln('Nhap gioi han day'); readln(n);
for i:=1 to n do readln(A[i]);
for i:=1 to n do if A[i] mod 2=1 then S:=S+A[i];
writeln(S);
//Bài 2
writeln('Nhap gioi han day'); readln(n);
gt:=1;tong:=0;
for i:=1 to n do
begin
gt:=gt.i;
tong:=tong+gt;
end;
writeln(...)
//Bài 3
writeln('Nhap gioi han day'); readln(n);
for i:=1 to n do P:=P+i;
if P<=1500 then writeln(...);
else writeln(....);
readln;
end.