Những câu hỏi liên quan
NN
Xem chi tiết
NT
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.

Bình luận (0)
NV
Xem chi tiết
NT
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;

}

Bình luận (0)
YT
Xem chi tiết
TG
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.

Bình luận (0)
TG
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.

 

Bình luận (0)
NT
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.

Bình luận (1)
NM
Xem chi tiết
NT
15 tháng 11 2021 lúc 23:44

uses crt;

begin

clrscr;

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

readln;

end.

Bình luận (0)
H24
Xem chi tiết
CW
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 ^^!)

Bình luận (0)
TN
Xem chi tiết
NT
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;

}

Bình luận (0)
NH
Xem chi tiết
DT
27 tháng 5 2017 lúc 15:15

Bình luận (0)
QL
Xem chi tiết
ML
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.

Bình luận (0)
H24
Xem chi tiết
ML
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.

Bình luận (3)