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.

uses crt;

var a,b,tam:integer;

begin

clrscr;

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

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

if a>b then

begin

tam:=a;

a:=b;

b:=tam;

end;

writeln(a);

writeln(b);

readln;

end.

11 tháng 10 2021

uses crt;

var x,y:integer;

begin

readln(x,y);

writeln(x,' ',y);

wrieln(y,' ',x);

readln;

end.

 


 

11 tháng 10 2021

cái đề của bạn nó rất là khặp khiển đấy

 

#include <bits/stdc++.h>
using namespace std;
long long a,b,bcnn;
int main()
{
    cin>>a>>b;
    if (a>b) swap(a,b);
    bcnn=b;
    while (bcnn%a!=0)
        bcnn=bcnn+b;
    cout<<bcnn;
    return 0;
}

 

Bài 2:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if (i mod 3=0) and (i mod 5=0) then t:=t+i;

writeln(t);

readln;

end.

18 tháng 12 2022

Var x,y: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=x+y;
y:=x-x;
x:=y;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

18 tháng 12 2022

Có 2 cách là nay vs cái gửi trc nhưng cách này ổn hơn nha
Var x,y,t: integer;
Begin
Writeln('nhap 2 so nguyen x va y: '); Readln(x,y);
x:=t;
y:=x;
y:=t;
Writeln('so x sau hoan doi= ',x);
Writeln('so y sau hoan doi= ',y);
end.

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x>>y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

viết trên pascal được hong ạ?