Bài 1:Viết chương trình tổng:S=1/1+1/2+…+1/n với giá trị nhập vào từ bàn phím

Bài 2:Viết chương trình nhập tên và hiển thị ra màn hình lời chào các bạn trong lớp

Bài 3:Viết chương trình tìm xem có bao nhiêu số dương trong n số nhập vào từ bàn phím

2 câu trả lời

Bài 1:Viết chương trình tổng:

`S=1/1+1/2+…+1/n`

với giá trị n nhập vào từ bàn phím

**Pascal***

uses crt;
var n,i:longint;
s:real;
begin
clrscr;
write('n=');
readln(n);
{:>>>}
for i:=1 to n do
s:=s+1/i;
writeln('tong',s:3:2);
readln
end.

**Python***

n=int(input("nhập n: "))
s=0
for i in range (1,n+1):
    s=s+1/i
print("Tổng",s)

Bài 2:Viết chương trình nhập tên và hiển thị ra màn hình lời chào các bạn trong lớp

***Pascal***

uses crt;
begin
clrscr;
write('hay nhap ten cua ban:');
readln;
writeln(' xin chao cac ban trong lop');
readln
end.

***Python***

input("nhập tên của bạn ")
input("xin chào các bạn trong lớp")

Bài 3:Viết chương trình tìm xem có bao nhiêu số dương trong n số nhập vào từ bàn phím

**Chỉ bằng pascal, về python mình sẽ bổ sung sau bên dưới nhé!***

uses crt;
var a:array[1..100]of longint;
n,i,d:longint;
begin
clrscr;
write('nhap so luong phan tu: ');
readln(n);
for i:=1 to n do
begin
write('phan tu thu:',i,': ');
readln(a[i]);
if a[i]>0 then d:=d+1;
end;
writeln('co',d,' phan tu duong');
{:>>>}
readln
end.

$\textit{Số dương là số lớn hơn 0 }$

Bài 1:

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln('Nhap so thu n: '); readln(n);

S:=0; i:=1;

while i<=n do begin

S:=S+1/i; i:=i+1;

end;

writeln('Tong la: ',S:2:3);

readln

end.

Bài 2:

Uses crt;

Begin

Clrscr;

Writeln('Hay nhap ten cua ban: ');

Readln;

Writeln('Xin chao tat ca cac ban trong lop');

Readln;

End.

Bài 3:

uses crt;
var a:array[1..100] of integer;
i,n:byte;
begin
clrscr;
write('Nhap n='); readln(n);<br /> for i:=1 to n do<br /> begin<br /> write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 7 =0 then write(a[i]:5);
readln;
end.