Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Hồng Hà
Xem chi tiết
Minh Lệ
28 tháng 4 2021 lúc 20:41

Program HOC24;

const fi='lop_11A5.txt'

var f: text;

begin

assign(f,fi);

rewrite(f);

write(f,'Toi yeu Viet Nam');

close(f);

end.

Huỳnh Thái An
Xem chi tiết
Hằng Dương Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 17:30

uses crt;

const fi='hcn.dat'

fo='chuvi.out'

var f1,f2:text;

a,b:array[1..100]of integer;

n,i,j:integer;

begin

clrscr;

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

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do

begin

n:=n+1;

readln(f1,a[n],b[n]);

end;

for i:=1 to n do

writeln(a[i]*b[i]);

for i:=1 to n do 

  writeln(f2,2*(a[i]+b[i]));

close(f1);

close(f2);

readln;

end.

Phan Tú
Xem chi tiết
Ngọc Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:48

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

freopen("sn.inp","r",stdin);

freopen("cn.out","w",stdout);

cin>>a>>b;

cout<<a*b;

return 0;

}

Dania sunna
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:23

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d;

int main()

{

freopen("input.txt","r",stdin);

freopen("output.txt","w",stdout);

cin>>a>>b>>c>>d;

cout<<a+b+c+d;

return 0;

}

Lan Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 1 2022 lúc 23:14

#include <bits/stdc++.h>

using namespace std;

int i;

int main()

{

freopen("ketqua.out","w",stdout);

for (i=1; i<=100; i++)

if (i%2==0) cout<<i<<" ";

return 0;

}

Quyền
Xem chi tiết
Quyền
4 tháng 5 2021 lúc 20:55

Uses crt; Var f1,f2:text; i,n,max:integer; a:array[1..100] of integer; Begin Assign(f1,'baitap.txt');reset(f1); Assign(f2,'solonnhat.txt');rewrite(f2); While not eof(f1) do Begin Read(f1,n,a[i]); Max:=a[1]; For i:=2 to n do if a[i]>max then max:=a[i]; End; Writeln(f2,'solonnhatla:',max); Close(f1);close(f2); End.

Quyền
4 tháng 5 2021 lúc 21:30

uses crt;
var n,max :integer;
    f1,f2:text;
begin
clrscr;
assign(f1,'baitap.txt'); reset(f1);
assign(f2,'solonhat.txt'); rewrite(f2);
max:=0;
while not eof(f1) do
  begin
  read(f1,n);
  if max <n then max:=n;
  end;
writeln('solonhatla: ',max:5);
write(f2,max);
close(f1);close(f2);
readln;
end.

Haibanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 10:05

const fi='sn.inp'

fo='sn.out'

var f1,f2:text;

a,b:integer;

begin

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

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

writeln(f2,a-b);

close(f1);

close(f2);

end.