a = int(input("Nhập số nguyên dương a: "))

while a <= 0:

         a = int(input("Số bạn nhập không phải số dương, vui lòng nhập lại: "))

print("Bạn đã nhập đúng quy tắc")

program Le_Nho_Hon_Hoac_Bang_n;

uses crt;

var

       n, i: integer;

begin

       clrscr;

       write('Nhap vao mot so nguyen duong n: ');

       readln(n);

       while n <= 0 do

       begin

              writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');

              readln(n);

       end;

       clrscr;

       writeln('Cac so le nho hon hoac bang ', n, ' la:');

       i := 1;

       while i <= n do

       begin

              if i mod 2 <> 0 then

                     writeln(i);

              i := i + 1;

       end;

       readln;

end.

var a,b:integer;
begin
    read(a);
    read(b);
    if a=b then write(A,'=',B);
    if a>b then write(A,'>',B);
    if a<b then write(A,'<',B);
readln;
end.

program Min;
uses crt;
var i,n:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   write('Cac so le nho hon hoac bang ',n,'la :');
   for i:=1 to n do if i mod 2 = 1 then write(i:4);
   readln
end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

if ((n>10) and (n<70))

{

t=0;

for (i=1; i<=n; i++)

if (i%2==0) t=t+i;

cout<<t;

}

else cout<<"Nhap lai";

return 0;

}

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

 if i mod 6=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,b,c,ucln,i:integer;

begin

clrscr;

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

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

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

while a<>b do 

  begin

if a>b then a:=a-b

else b:=b-a;

end;

ucln:=a;

while ucln<>c do 

 begin

if ucln>c then ucln:=ucln-c

else c:=c-ucln;

end;

writeln(ucln);

readln;

end.

Scratch hay java

Akai Haruma

Em không nêu ra yêu cầu và các điều kiện liên quan của đề bài thì làm sao mn giúp em được?

camcon                                                         :

Ví dụ như của em: Giải bất phương trình $x^2>4$.

Ta đưa về dạng 1 vế chứa 0 như sau:

$x^2>4$

$\Leftrightarrow x^2-4>0$

$\Leftrightarrow (x-2)(x+2)>0$

Đến đây ta có 2 TH xảy ra:

TH1: \(\left\{\begin{matrix} x-2>0\\ x+2>0\end{matrix}\right.\Leftrightarrow \left\{\begin{matrix} x>2\\ x>-2\end{matrix}\right.\Rightarrow x>2\)

TH2: \(\left\{\begin{matrix} x-2< 0\\ x+2< 0\end{matrix}\right.\Leftrightarrow \left\{\begin{matrix} x< 2\\ x< -2\end{matrix}\right.\Rightarrow x< -2\)

Vậy tóm lại $x>2$ hoặc $x< -2$

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if a>b then writeln(a)

else if a<b then writeln(b)

else writeln('Hai so bang nhau');

readln;

end.