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

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.

Trường

Giáo Dục