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.

27 tháng 5

when green flag clicked
ask [Nhập số a] and wait
ask [Nhập số b] and wait
set [a v] to (answer)
set [b v] to (answer)

// Tính tổng
set [tổng v] to ((a) + (b))
// In kết quả tổng
say (abs (tổng)) for (2) secs

// Tính hiệu
set [hiệu v] to ((a) - (b))
// In kết quả hiệu
say (abs (hiệu)) for (2) secs

// Tính tích
set [tích v] to ((a) * (b))
// In kết quả tích
say (abs (tích)) for (2) secs

// Tính thương
set [thương v] to ((a) / (b))
// In kết quả thương
say (abs (thương)) for (2) secs

// Tính căn bậc 2 của a
set [căn bậc 2 của a v] to (sqrt (abs (a)))
// In kết quả căn bậc 2 của a
say (căn bậc 2 của a) for (2) secs

// Tính căn bậc 2 của b
set [căn bậc 2 của b v] to (sqrt (abs (b)))
// In kết quả căn bậc 2 của b
say (căn bậc 2 của b)

27 tháng 5

loading...loading...loading...

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.

QT
Quoc Tran Anh Le
Giáo viên
18 tháng 11 2023

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

#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;

}

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.

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

6 tháng 2 2021

Dạ vâng em cảm ơn ạ

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. 

#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;

}

11 tháng 11 2021

Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

7 tháng 3 2023

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.