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.
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.
#include <bits/stdc++.h>
using namespace std;
long long x,y,tam;
int main()
{
cin>>x>>y;
cout<<"x truoc khi doi la:"<<x<<endl;
cout<<"y truoc khi doi la:"<<y<<endl;
tam=x;
x=y;
y=tam;
cout<<"x sau khi doi la:"<<x<<endl;
cout<<"y sau khi doi la:"<<y;
return 0;
}
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>b) then writeln(b,' ',a)
else writeln(a,' ',b);
readln;
end.
Bài 1:
program in_phan_tu;
uses crt;
var n,i:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:3);
readln;
end.
Bài 2:
program tong_phan_tu;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Bài 3:
program tong_phan_tu_chan;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
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.
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin>>x>>y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
Program hoan_doi;
uses crt;
var hd p ,q: integer;
begin
clrscr;
write('nhap p ='); readln(p);
write('nhap q ='); readln(q);
write('gia tri ban dau cua p = ',p,' va ' q = ',q);
hd:=p;
p:=q;
q:=hd;
writeln;
writeln('gia tri cua p va q sau khi hoan doi la p =',p,' va q =',q);
readln;
end.
bạn có thể tham khảo