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.

8 tháng 10 2021

90/(3-8*2)

uses crt;

var x,y:integer;

begin

clrscr;

readln(x,y);

writeln(2*x*x+y);

readln;

end.

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;

}

12 tháng 5 2021

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.

12 tháng 5 2021

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.

 

15 tháng 11 2021

uses crt;

begin

clrscr;

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

readln;

end.

29 tháng 11 2016

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 ^^!)

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

}

13 tháng 3 2023

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.

10 tháng 5 2023

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.

10 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

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

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do if a[i] mod 2<>0 then t:=t+a[i];

write('Ket qua la: ',t);

readln

end.