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.