Bài Tập Pascal 11

[camthuytc1999]

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

- Anh chị ai giúp em giải hộ bài tập pascal này với
Viết Chương Trình Bài 1: S=1+3+5+...+151
- Bài 2: Nhập Từ Bàn Phím 1 số nguyên khác 0 , xét xem chẳn hay lẽ rồi đưa ra màng hình
- Anh chị nào giúp em với ạ. em cảm ơn nhiều

 

[tpgionhe]

- Anh chị ai giúp em giải hộ bài tập pascal này với
Viết Chương Trình Bài 1: S=1+3+5+...+151
- Bài 2: Nhập Từ Bàn Phím 1 số nguyên khác 0 , xét xem chẳn hay lẽ rồi đưa ra màng hình
- Anh chị nào giúp em với ạ. em cảm ơn nhiều

Bài 2:
program chan_le;
uses crt;
var a: integer;
begin
clrscr;
write('Nhap so can kiem tra:');readln(a);
if a<>0 then begin
if (a mod 2)= 0 then
write('So nhap vao la so chan')
else
write('So nhap vao la so le');
end;
else
write('Moi ban nhap so khac 0');
readln;
end.

 

[yumiko19]

- Anh chị ai giúp em giải hộ bài tập pascal này với
Viết Chương Trình Bài 1: S=1+3+5+...+151
- Bài 2: Nhập Từ Bàn Phím 1 số nguyên khác 0 , xét xem chẳn hay lẽ rồi đưa ra màng hình
- Anh chị nào giúp em với ạ. em cảm ơn nhiều

Bài 1 là in ra màn hình tổng à bạn? Nếu là in ra màn hình tổng thì sẽ là thế này

 

[syphuongcuong3]

- Anh chị ai giúp em giải hộ bài tập pascal này với
Viết Chương Trình Bài 1: S=1+3+5+...+151
- Bài 2: Nhập Từ Bàn Phím 1 số nguyên khác 0 , xét xem chẳn hay lẽ rồi đưa ra màng hình
- Anh chị nào giúp em với ạ. em cảm ơn nhiều

{Bai 1}
USES crt;
VAR i,s:WORD;
BEGIN   
    clrscr;
    write('Chuong trinh....');
    FOR i:=1 TO 151 DO
        IF i MOD 2 <> 0 THEN S:=S+i;
    write('Tong: ',S);
    readln;
END.

{Bai 2}
USES crt;
VAR i,n:WORD;
BEGIN
    clrscr;
    write('Nhap n: ');readln(n);
    IF n MOD 2 =0 THEN write(n,' chan')
        ELSE write(n, 'le');
    readln;
END.