uses crt;
var a,b,i,x,y,n,m:integer;
st1,st2,st3,st4:string;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
str(a,st1);
str(b,st2);
st3:='';
for i:=length(st1) downto 1 do
st3:=st3+st1[i];
st4:='';
for i:=length(st2) downto 1 do
st4:=st4+st2[i];
val(st3,x,y);
val(st4,n,m);
writeln('So doi xung cua ',a,' la: ',x);
writeln('So doi xung cua ',b,' la: ',n);
writeln('Tong hai so doi xung cua ',a,' va ',b,' la: ',x+n);
readln;
end.

#include <bits/stdc++.h>

using namespace std;

long long a,b,x,y;

int main()

{

cin>>a>>b;

x=0;

while (a>0) 

{

x=x*10+(a%10);

a=a/10;

}

cout<<x<<endl;

y=0;

while (b>0)

{

y=y*10+(b%10);

b=b/10;

}

cout<<y;

return 0;

}

uses crt;

var a,b,c:integer;

begin

clrscr;

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

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

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

if (a<b) and (b<c) then writeln('a<b<c');

if (a<c) and (c<b) then writeln('a<c<b');

if (b<c) and (c<a) then writeln('b<c<a');

if (b<a) and (a<c) then writeln('b<a<c')

if (c<a) and (a<b) then writeln('c<a<b');

if (c<b) and (b<a) then writeln('c<b<a');

readln;

end.

cảm ơn bạn !!!!

uses crt;

var n,i,o,d:integer;

function ktnt(n:integer): integer;

var i,d:integer;

begin

d:=0;

for i:=1 to sqrt(n) do

if (n mod i=0) then d:=d+1;

if d=2 then ktnt=0

else ktnt=1;

end;

begin

readln(n);

writeln(' so nguyen to be hon hoac bang n la'); {a}

for i:=1 to n do

if ktnt(i)=0 then writeln(i);

writeln('so nguyen to nho nhat khong be hon n');

o:=n;

while o>0 do

begin

if ktnt(o)=0 then

begin

write(o);

break;

end;

o:=o+1;

end;

writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');

o:=0;

o:=1;

d:=0;

for i:=o+2 to n do

begin

if ktnt(i)=0 then

begin

d:=d+1;

write(i,' ');

if d<2 then continue;

end;

d:=0;

writeln;

end;

readln;

end.

Mình nói thật nhé là ko có 2 số lẽ liên tiếp nhé

vd n+2 với n là 1

thì số lẻ tiếp theo của nó là (n+2)+2 tức n+4 đấy còn liên tiếp (n+2)+1 là ko bao giờ xãy ra

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n%2==0) cout<<"Chan";

else cout<<"Le";

return 0;

}

A

program tong;
uses crt;
var M, N, S, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
s : = 0;
for i := M to N do if (i mod 2 = 0) then s:= s + i;
write (T'ong cac so chan trong pham vi tu M den N = ',s);
readln;
end.

mk mới làm tổng thui nghen

còn hiệu với tích ko ạ

Đặc trưng của chương trình bảng tính:
 

1. Màn hình làm việc.
2. Dữ liệu.
3. Khả năng tính toán và sử dụng hàm có sẵn.
4. Sắp xếp và lọc dữ liệu.
5. Tạo biểu đồ.

Đặc trưng cho chương trình bảng tính là:

+ Thanh công thức

+ Thang bảng chọn

+ Tên cột

+ Tên hàng

+ Thanh trang tính

+ Tên bảng tính

+ Ô tính

+ Bảng chọn Data

+ Trang tính

uses crt;
var n,i,kt,j:longint;
begin
clrscr;
repeat
write('n='); readln(n);
if n<=2 then writeln('vui long nhap lai');
until n>2;
writeln('cac so nguyen to nho hon so ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.

program cachkhac;

var i,N: integer;

function KT(a: integer): boolean;

var j: integer;

begin

nt:=false;

if j<=1 then exit;

for j:=2 to trunc(sqrt(a)) do if a mod j=0 then exit;

nt:=true;

end;

Begin

Write('Nhap so nguyen N=');

Readln(N);

For i:=1 to n do

If nt(i) then write(i,' ');

Readln

end.