Tin học Pascal

[Bùi Lê Trung Hậu]

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

Program ham;
var t,d:longint;
a,b:integer;
s:real;
f,g:text;
function kt(n:integer):boolean;
Var i:integer;
cp:boolean;
begin
cp:=false;
for i:=1 to n do
If (n div i = i) and (n mod i = 0) then cp:=true;
kt:=cp;
end;
begin
assign(f,'Bai_3.txt'); reset(f);
assign(g,'Bai_3.out'); rewrite(g);
read(f,a,b);
s:=a*b;
write(g,s:6:2);
for t:= 1 to 30000 do
if kt(t) then d:=d+t;
write(d);
readln;
Close(f);
close(g);
end.

 

[nguyen tran thanh nha]

Program ham;
var t,d:longint;
a,b:integer;
s:real;
f,g:text;
function kt(n:integer):boolean;
Var i:integer;
cp:boolean;
begin
cp:=false;
for i:=1 to n do
If (n div i = i) and (n mod i = 0) then cp:=true;
kt:=cp;
end;
begin
assign(f,'Bai_3.txt'); reset(f);
assign(g,'Bai_3.out'); rewrite(g);
read(f,a,b);
s:=a*b;
write(g,s:6:2);
for t:= 1 to 30000 do
if kt(t) then d:=d+t;
write(d);
readln;
Close(f);
close(g);
end.

write(g,d) mới đúng chứ
và không cần readln

 

[Bùi Lê Trung Hậu]

write(g,d) mới đúng chứ
và không cần readln

g là bên assign mà

 

[nguyen tran thanh nha]

g là bên assign mà

bài này yêu cầu gì

 

[ka1412]

Program ham;
var t,d:longint;
a,b:integer;
s:real;
f,g:text;
function kt(n:integer):boolean;
Var i:integer;
cp:boolean;
begin
cp:=false;
for i:=1 to n do
If (n div i = i) and (n mod i = 0) then cp:=true;
kt:=cp;
end;
begin
assign(f,'Bai_3.txt'); reset(f);
assign(g,'Bai_3.out'); rewrite(g);
read(f,a,b);
s:=a*b;
write(g,s:6:2);
for t:= 1 to 30000 do
if kt(t) then d:=d+t;
write(d);
readln;
Close(f);
close(g);
end.

Bạn tạo file Bai_3.txt ở thư mục chứa file pas là hết nhé