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.

20 tháng 6 2018

program Bieu_Thuc;

uses crt;

var x,S:integer;

begin

writeln('Nhap x vao:');

readln(x);

S:=0;

S:=S+(sqr(x)-1);

writeln('Gia tri la:',S);

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;

}

22 tháng 3 2021

program tinh;

uses crt;

var a;b:integer;

   C:real;

begin

  clrscr;

write('ban hay nhap so nguyen a,a='); read(a);

write('ban hay nhap so nguyen b,b='); read(b);

C=a*b/2;

write('gia tri bieu thuc C la,C=',C);

delay(5000);

end.

1:

uses crt;

const fi='ketqua.txt';

var f1:text;

st:string;

i,d:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]=#32 then delete(st,i,1);

writeln(f1,st);

close(f1);

end.

2:

uses crt;

var a,b,c,d:integer;

{----------chuong-trinh-con-----------------------}

function min(x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

{---------------chuong-trinh-chinh--------------------}

begin

clrscr;

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

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

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

write('d='); readln(d);

writeln(min(a,min(b,min(c,d))));

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n<0) cout<<"la so am";

else cout<<"la so duong";

return 0;

}

8 tháng 1 2022

Khai báo biến a và b thuộc kiểu Integer