Trang chủ Tin Học Lớp 8 Bài 1. Viết chương trình: -Nhập vào số nguyên N....

Bài 1. Viết chương trình: -Nhập vào số nguyên N. -Xuất ra màn hình các số chẵn từ 1 đến N. -Xuất ra màn hình các số lẻ từ 1 đến N. Bài 2. Viết chương trình: -N

Câu hỏi :

Bài 1. Viết chương trình: -Nhập vào số nguyên N. -Xuất ra màn hình các số chẵn từ 1 đến N. -Xuất ra màn hình các số lẻ từ 1 đến N. Bài 2. Viết chương trình: -Nhập vào số nguyên N. -Xuất ra màn hình tổng các số từ 1 đến N. -Xuất ra màn hình tích các số từ 1 đến N. Bài 3. Viết chương trình: -Nhập vào sốnguyên N. -Tính tổng các số lẻ từ 1 đến N và xuất quả ra màn hình. -Thực hiện đếm xem có bao nhiêu số lẻ từ 1 đến N và xuất kết quả ra màn hình. Bài 4. Viết chương trình: -Nhập vào số nguyên N. -Tính tích các số chẵn từ 1 đến N và xuất kết quả ra màn hình. -Thực hiện đếm xem có bao nhiêu số chẵn từ 1 đến N và xuất kết quả ra màn hình.

Lời giải 1 :

Anh nhớ vote 5 sao nhé

Bài 1

Uses crt;

Var N,i:word;

Begin 

Clrscr;

Write('n=');

Readln(n);

For i:=1 to n do if i mod 2 = 0 then write('so chan la:',i) else write('so le la:',i);

Bài 2 Uses crt

; Var n,i,s,a:word;

Begin

Clrscr;

Write('n=');

Readln(n);

For i:=1 to n do s:=s+i;

Write('tong cua cac so tu 1 den n la:',s);

Readln;

For i:=1 to n do a:=a*i;

Write('tich tu 1 den n la:',a);

Readln End.

Readln 

End.

Bài 3

Uses crt;
Var n,i,dl,sl: longint;
Begin
Clrscr;

Write('Nhap n: '); Readln(n);
 dl:=0; sl:=0;
For i:=1 to n do
If i mod 2 = 1 then
 Begin
sl:=sl+i;
inc(dl);
End;
Writeln('1. ',sl);
Write('2. ',dl);
Readln
End.

Bài 4

image

Thảo luận

-- thanks ák
-- Bài 2 Uses crt; Var n,i,s,a:word; Begin Clrscr; Write('n='); Readln(n); For i:=1 to n do s:=s+i; Write('tong cua cac so tu 1 den n la:',s); Readln; For i:=1 to n do a:=a*i; Write('tich tu 1 den n la:',a); Readln End. Readln

Lời giải 2 :

Bài 3:

Program FNG;
Uses crt;
Var n,i,dl,sl: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        dl:=0; sl:=0;
        For i:=1 to n do
                If i mod 2 = 1 then
                Begin
                        sl:=sl+i;
                        inc(dl);
                End;

        Writeln('1. ',sl);
        Write('2. ',dl);
        Readln
End.

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 8

Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK