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.

program baitap;

uses crt;

var x,y: integer;

begin

clrscr;

write('so nguyen x la');

readln(x);

write('so nguyen y la');

readln(y);

writeln(' ho ten va lop');

write('hieu hai so x va y la ', x-y);

readln;

end.

 

13 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long c,a,b;

int main()

{

cin>>a>>b;

c=a-b;

cout<<c;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long i;

int main()

{

for (i=20; i>=15; i--) cout<<i<<" ";

return 0;

}

21 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,tb;

int main()

{

cin>>a>>b;

tb=(a+b)/2;

cout<<fixed<<setprecsion(1)<<tb;

return 0;

}

Câu 3: 

a: if n mod 3=0 then writeln('n la mot so nguyen chia het cho 3');

b: if t>=5 then writeln('chuc mung! ban da qua mon')

else writeln('rat tiec! ban phai hoc lai');

Câu 4: 

Cái này bạn Thành nói đúng. Bởi vì chúng ta có thể thay phần else ở đằng sau câu lệnh điều kiện dạng đủ thành một câu lệnh if có điều kiện ngược lại câu lệnh if ở trên

uses crt;

var a:array[1..1000]of integer;

n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=n downto 1 do write(a[i]:4);

readln;

end.

18 tháng 12 2022

2/ 

a/ (sqr(x)+y)/(y*y+x)

b/ (k*k+sqr(k+1)<>sqr(k+2)

c/ (x+5)/(a+3)-y/((b*5)*sqr(x+2))

d/ b*b-4*a*c>=0

d/ (a*a+b)*(1+c)*(1+c)*(1*c)

5/

B1: Đổ nước từ cốc A vào cốc C

B2: Đổ nước từ cốc B vào cốc A

B3: Đổ nước từ cốc C vào cốc B

b) 

uses crt;

var a:array[1..100]of integer;

i,n,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t1:=0;

t2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then t1:=t1+a[i];

if a[i]<0 then t2:=t2+a[i];

end;

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

readln;

end. 

a)

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

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 

  t:=t+a[i];

writeln(t);

readln;

end.

uses crt;

var a:array[1..15]of integer;

n,i,k:integer;

kt:boolean;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

readln(k);

kt:=false;

for i:=1 to n do 

  if a[i]=k then

begin

kt:=true;

break;

end;

for i:=1 to n do write(a[i]:4);

writeln;

if (kt=true) then writeln('Trong mang co ton tai phan tu co gia tri la K')

else writeln('Khong ton tai phan tu co gia tri la k');

readln;

end.