Tin học 8

[damngocbich2610]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

C1 vt chương trình nhập vào n số nguyên từ bàn phím. Đếm xem có bn số lẻ trong dãy số vừa nhập
C2 vt chương trình tính tổng T=1+1/2+1/3+...+1/n là số nguyên nhập vào từ bàn phím

 

[Hacker!!]

uses crt;
var
a:array[1..100]of integer;
i,n,d:integer;
begin
clrscr;
write('n=');read(n);
for i:=1 to n do
begin
write('a[',i,']=');read(a);
end;
for i:=1 to n do write(a:4);writeln;
for i:=1 to n do
if a mod 2 <>o then inc(d);
write('co ',d,' so le trong day so vua nhap);
readln;
readln
end.

 

[Hacker!!]

uses crt;
var
n,i:integer;
t:real;
begin
clrscr;
write('n=');read(n);
for i:=1 to n do
t:=t+(1/i);
writeln('tong=',t:4:3);
readln;
readln
end.

 

[S I M O]

C2 Var n,i:integer;
t:real;
Begin
Read (n);t:=0;
For i:= 1 to n do t=t+(1/i);
End.

 

[S I M O]

uses crt;
var
n,i:integer;
t:real;
begin
clrscr;
write('n=');read(n);
for i:=1 to n do
t:=t+(1/i);
writeln('tong=',t:4:3);
readln;
readln
end.

Bạn chưa gán giả trị ban đầu của t, phần cuối không cần readln cũng được với lại nếu bạn viết readln chỉ cần một readln thôi

 

[S I M O]

C1
Var n,i,dem: integer;
Begin
Read(n);dem:=0;
For i:= 1 to n do if (i mod 2)=1 then dem=dem+i;
Writeln ( dem);
End.

 

[Hacker!!]

Bạn chưa gán giả trị ban đầu của t, phần cuối không cần readln cũng được với lại nếu bạn viết readln chỉ cần một readln thôi

vì máy mình không xài được alt+f5 nên dùng 2 lần readln