Những câu hỏi liên quan
chương nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 3 2021 lúc 21:37

uses crt;

var m:integer;

begin

clrscr;

write('Nhap m='); readln(m);

if m mod 2=0 then writeln(m,' la so chan')

else writeln(m,' la so le');

writeln('Binh phuong cua ',m,' la: ',sqr(m));

writeln('Can bac hai cua ',m,' la: ',sqrt(m));

writeln('Gia tri tuyet doi cua ',m,' la: ',abs(m));

readln;

end.

Bình luận (0)
Minh Lệ
Xem chi tiết
Quoc Tran Anh Le
18 tháng 11 2023 lúc 17:08

Tạo chương trình như sau:

Bình luận (0)
Lan Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 1 2022 lúc 23:13

#include <bits/stdc++.h>

using namespace std;

long long a,b;

double tb;

int main()

{

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

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

cin>>a>>b;

cout<<a<<" "<<b;

cout<<fixed<<setprecision(2)<<(a*1.0+b*1.0)/(2*1.0);

return 0;

}

Bình luận (0)
Nguyễn Minh Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 3 2021 lúc 22:33

uses crt;

const fi='dst.txt'

var f1:text;

a,b:integer;

begin

clrscr;

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

readln(f1,a);

readln(f1,b);

writeln('Tong cua hai so la: ',a+b);

writeln('Gia tri tuyet doi hieu hai so la: ',abs(a-b));

readln;

end.

Bình luận (0)
Lê Ngọc Ngân
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 2 2021 lúc 21:41

*Viết chương trình ghi hai số 5 và 15 vào tệp so.txt:

const f='so.txt'

var f1:text;

begin

assign(f1,f); rewrite(f1);

writeln(f1,'5 15');

close(f1);

end.

*Viết chương trình tính tổng, hiệu, tích, thương của x,y và in kết quả ra màn hình:

uses crt;

const fi='so.txt'

var x,y:integer;

f1:text;

begin

clrscr;

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

readln(f1,x,y);

writeln('Tong la: ',x+y);

writeln('Hieu la: ',x-y);

writeln('Tich la: ',x*y);

writeln('Thuong la: ',x/y:4:2);

close(f1);

readln;

end.

Bình luận (1)
ℍ𝕠̣𝕔 𝔻𝕠̂́𝕥
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:45

uses crt;

var a:array[1..100]of real;

i,n:integer;

min,t:real;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat la: ',min:4:2);

t:=0;

for i:=1 to n do 

 if i mod 2=0 then t:=t+a[i];

writeln('Tong cac phan tu co chi so chan la: ',t:4:2);

readln;

end. 

Bình luận (0)
nguyễn mạnh đoàn
Xem chi tiết
Huyền Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:37

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x>>y;

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

cout<<x+y<<endl;

cout<<x-y<<endl;

cout<<x*y<<endl;

cout<<fixed<<setprecision(2)<<(x*1.0)/(y*1.0);

return 0;

}

Bình luận (0)
Hạ Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 11 2021 lúc 23:26

Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

Bình luận (0)
Quyen Duong
Xem chi tiết
Minh Lệ
7 tháng 3 2023 lúc 21:56

Program HOC24;

var r,s: real;

begin

write('Nhap ban kinh: '); readln(r);

writeln('Dien tich la: ',r*r*3.14:6:2);

write('Chu vi la: ',r*2*3.14:6:2);

readln

end.

Bình luận (0)