Uses crt;

Var a,b: real;

Begin

Clrscr;

Writeln('Nhap a,b');

Realn(a,b);

If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)

else writeln('Yeu cau nhap lai');

Readln;

End.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

if (a>0) and (b>0) then writeln(a*b)

else writeln('Nhap lai');

readln;

end.

Bước 3 a←a,b ở giữa a và b là phép gì vậy bạn (cộng hay nhân,....). Nếu là phép nhân thì đây là vòng lặp vô hạn, còn những phép tính còn lại chỉ có 1 vòng lặp

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin>>x>>y;

if (x>y) cout<<"x la so lon";

else cout<<"x khong la so lon";

return 0;

}

Var x,y:real;

Begin

Write('Nhap so a = ');readln(a);

Write('Nhap so b = ');readln(b);

If a > b then write(a,' la so lon')

Else write(a,' khong la so lon');

Readln;

End.

Sửa a thành x, b thành y nhé em

uses crt;

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

n,i,t,nn,kt:integer;

begin

clrscr;

readln(n);

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

t:=1;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t*a[i];

writeln(t);

kt:=0;

nn:=32567;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

if nn>a[i] then nn:=a[i];

kt:=1;

end;

if kt=0 then writeln('Khong co so chia het cho 3')

else writeln('So nho nhat chia het cho 3 la: ',nn);

for i:=1 to n do 

  if nn=a[i] then write(i:4);

writeln;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.

GIÚP MÌNH VỚI ẠK

#include <bits/stdc++.h>

using namespace std;

unsigned long long a,b;

int main()

{

cin>>a>>b;

if (a>b) swap(a,b);

cout<<a<<" "<<b;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int a;

int main()

{

cin>>a;

if (a>10) cout<<"ban nhap so lon hon 10";

else cout<<"ban nhap so nho hon 10";

return 0;

}