K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Dùng thủ tục Reset(<tên file>)

7 tháng 6 2020

1-a

2-b

3-c

4-d

5-e

6-f

7-g

8-h

14 tháng 4 2022

Program HOC24;

var f1,f2: text;

a,b: integer;

t: longint;

begin

assign(f1,'input.pas');

reset(f1);

assign(f2,'output.pas');

rewrite(f2);

readln(f1,a,b);

t:=a*b;

write(f2,t);

close(f1);

close(f2);

End.

13 tháng 4 2020

k có dòng trống ạ

13 tháng 4 2020

k có dòng trống ạ

Câu 1:

uses crt;
var a,b,c,d,t:integer;
{------------------------chuong-trinh-con-tinh-tong-cua-hai-so-----------------}
function tong(var x,y:integer):integer;
begin
tong:=x+y;
end;
{------------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('Nhap so thu ba: '); readln(c);
write('Nhap so thu tu: '); readln(d);
t:=tong(a,b)+tong(c,d);
writeln('Tong cua bon so la: ',t);
readln;
end.

Câu 2:

const fi='dulieu.dat';

assign(f1,fi); reset(f1);

26 tháng 7 2021

Tệp thủ tục có phần mở rộng là gì ? 
a.Docx         B.Pptx        C.Png            D.Lgo