Lớp 8

Viết chương trình nhập vào số nguyên N in ra màn hình tổng các ước của N trong Pascal

Viết chương trình nhập vào số nguyên N in ra màn hình tổng các ước của N trong Pascal, 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 và nhiều bài tập tin học khác sẽ giúp các em củng cố kỹ năng lập trình tin học lớp 8. Mời các em theo dõi bài học dưới đây nhé.

Viết chương trình nhập vào số nguyên N in ra màn hình tổng các ước của N trong Pascal
Viết chương trình nhập vào số nguyên N in ra màn hình tổng các ước của N trong Pascal

Gợi ý cho các em: Cách viết chương trình tính chu vi diện tích hình chữ nhật với chiều dài và chiều rộng nhập từ bàn phím

Viết chương trình nhập vào số nguyên N in ra màn hình tổng các ước của N trong Pascal

uses crt;

var n,i,s :integer;

begin

clrscr;

writeln(‘Nhap n’); readln(n);

s:=0;

for i:=1 to n do

if n mod i:=0 then

begin

s:=s+i;

writeln(s);

end;

readln;

end.

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

Program Hotboy;

Uses crt;

var n,i:integer

Begin

Clrscr;

Write(‘Nhap so n tu ban phim :’);

Readln(n);

For i:=1 to n do

If (i mod 2=0 ) then Write(‘cac so chan la’,i,’ ‘);

Else

Write(‘cac so le la’,i);

Readln

End.

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

Program Hotboy;

Uses crt;

var n,i,S:integer

T:longint;

Begin

Clrscr;

S:=0;T:=1;

Write(‘Nhap so n tu ban phim :’);

Readln(n);

For i:=1 to n do

S:=S+i;

For i:=1 to n do

T:=T*i;

Write(‘tong la’,S);

Write(‘tich la’,T);

Readln

End.

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

Program Hotboy;

Uses crt;

var n,i,S,d:integer

Begin

Clrscr;

S:=0; d:=0;

Write(‘Nhap so n tu ban phim :’);

Readln(n);

For i:=1 to n do

If (i mod 2=1 ) then inc(d);

S:=S+i;

Write(‘cac so le la’,d,’tong le la’,S);

Readln

End.

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

Program Hotboy;

Uses crt;

var n,i,S,d:integer

Begin

Clrscr;

S:=0; d:=0;

Write(‘Nhap so n tu ban phim :’);

Readln(n);

For i:=1 to n do

If (i mod 2=0) then inc(d);

S:=S+i;

Write(‘cac so chan la’,d,’tong chan la’,S);

Readln

End.

***********

Hy vọng qua bài viết này các em có thể làm tốt các bài tập và bài thi lập trình Pascal trong chương trình tin học lớp 8. Chúc các em học tốt.

cdnthuathienhue.edu.vn

Trường Cao Đẳng nghề Thừa Thiên Huế được thành lập theo Quyết định số 209/QĐ-LĐTBXH ngày 22/02/2012 của Bộ trưởng Bộ Lao Động Thương Binh Xã Hội. Là một trong những trường đào tạo nghề trọng điểm của Tỉnh Thừa Thiên Huế và là một trong 36 trường dạy nghề được đầu tư tập trung bằng nguồn vốn dự án "Tăng cường năng lực đào tạo nghề" giai đoạn 2001-2005 của Bộ Lao động - Thương binh và Xã hội.

Có thể bạn cần

Back to top button