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
Nguyễn Sỹ Nhật
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 5 2022 lúc 20:48

uses crt;

var x,y:integer;

begin

clrscr;

readln(x,y);

writeln(2*x*x+y);

readln;

end.

Nguyễn Bảo Việt
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 10 2021 lúc 0:18

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

Yết Thiên
Xem chi tiết
Trúc Giang
12 tháng 5 2021 lúc 9:55

Câu 2:

Program nii;

Uses crt;

Var a,b,c,A:integer;

Begin

Write ('nhap a');

Readln (a);

Write ('nhap b');

Readln (b);

Write ('nhap c');

Readln (c);

A:=a;

If A<b then A:=b;

If A<c then A:=c;

Write ('Ket qua',A);

Readln;

End.

Trúc Giang
12 tháng 5 2021 lúc 9:51

Câu 1

Program ntg;

Uses crt;

Var A,x,y:integer;

Begin

Write ('nhap x');

Readln (x);

Write ('nhap y');

Readln ('y');

A:=x+y;

Write ('Ket qua',A);

Readln;

End.

 

Nguyễn Lê Phước Thịnh
12 tháng 5 2021 lúc 18:43

Câu 2: 

uses crt;

var a,b,c,max:integer;

begin

clrscr;

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

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

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

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln('So lon nhat trong 3 so la: ',max);

readln;

end.

Nguyễn Ái My
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 11 2021 lúc 23:44

uses crt;

begin

clrscr;

writeln(10+4*sqr(15-10)/6+4);

readln;

end.

noname
Xem chi tiết
Cold Wind
29 tháng 11 2016 lúc 12:03

var a,b,c: real;

begin

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

c:= (a+b)/2;

write('Gia tri cua bieu thuc c=(a+b)/2 la: ',c);

end.

(chạy thử ct đi ^^!)

thành nam nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:02

#include <bits/stdc++.h>

using namespace std;

int n,i;

double s;

int main()

{

cin>>n;

s=1;

for (i=2; i<=n; i++)

{

if (i%2==0) s=s+1/(i*1.0);

else s=s-1/(i*1.0);

}

cout<<fixed<<setprecison(2)<<s;

return 0;

}

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
27 tháng 5 2017 lúc 15:15

Quản Gia Lynh
Xem chi tiết
Minh Lệ
13 tháng 3 2023 lúc 23:07

Program HOC24;

var a,b: integer;

D: longint;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

D:=2*(a+b);

write('D = ',D);

readln

end.

lenguyenchihieu
Xem chi tiết
Minh Lệ
10 tháng 5 2023 lúc 20:50

Program HOC24;

var t: longint;

a,b: integer;

function gt(x: integer): longint;

var i: integer; tich: longint;

begin

tich:=1;

for i:=1 to n tich:=tich*i;

gt:=tich;

end;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

t:=gt(a)+gt(b)+gt(a-b);

write('T = ',t);

readln

end.