Những câu hỏi liên quan
Lê Thị Ngọc Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2021 lúc 13:02

uses crt;

const fi='baitap.txt'

var f1:text;

a,b:integer;

begin

clrscr;

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

readln(f1,a,b);

writeln('Chu vi hinh chu nhat la: ',(a+b)*2);

close(f1);

readln;

end.

Bình luận (0)
Nguyễn huy kiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2021 lúc 13:51

uses crt;

const fi='baitap.txt'

var f1:text;

a,b:integer;

begin

clrscr;

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

readln(f1,a,b);

writeln('Chu vi la: ',(a+b)*2);

writeln('Dien tich la: ',a*b);

close(f1);

readln;

end.

Bình luận (0)
Dung Từ
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 1 2022 lúc 21:40

#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long gcd(long long a,long long b)
{
    if (b==0) return(a);
    return gcd(b,a%b);
}
//chuongtrinhchinh
int main()
{

freopen("songuyen.inp","r",stdin);
cin>>a>>b;
cout<<gcd(a,b);
return 0;
}

 

Bình luận (1)
Kiệt Bùi
Xem chi tiết
Chí Nguyễn
Xem chi tiết
Bùi Anh Tuấn
14 tháng 3 2021 lúc 20:59

Bình luận (1)
Minh Lệ
15 tháng 3 2021 lúc 18:55

Program HOC24;

const fi='INPUTC2.TXT'

var s: longint;

a,b: integer;

f: text;

procedure ip;

begin 

assign(f,fi);

reset(f);

read(f,a,b);

s:=a*b;

close(f);

end;

begin

ip;

write('S= ',s);

readln

end.

Bình luận (0)
Phạm Đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 9:47

uses crt;

const fi='baitap.txt'

var f1:text;

a:array[1..5]of integer;

i:integer;

begin

clrscr;

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

for i:=1 to 5 do readln(f1,a[i]);

for i:=1 to 5 do write(a[i]:4);

close(f1);

readln;

end.

Bình luận (0)
Thương Thương
Xem chi tiết
Đoàn Xuân Sơn
10 tháng 3 2022 lúc 1:04

const fi='nhap.txt'

uses crt;

var

f:text;

b:byte;

a:longint;

begin

clrscr;

assign(f,f1);

reset(f);

read(f,a,b);

close(f);

a:=exp(b*ln(a));

write('ket qua la: ',a);

readln;

end.

Bình luận (0)
Lê Đức Tài
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 3 2022 lúc 14:06

#include <bits/stdc++.h>

using namespace std;

long long i,a[100],n;

int main()

{

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

n=20;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

Bình luận (0)
Nguyễn Văn Hùng
Xem chi tiết