uses crt;

var a,t:integer;

begin

clrscr;

t=0;

repeat

readln(a);

if (a>0) then t:=t+a;

until (a mod 2=0);

writeln(t);

readln;

end.

Câu 1: 

Dạng thiếu:

if (<điều kiện>) <câu lệnh>;

Dạng đủ:

if (<điều kiện>) <câu lệnh 1>;

else <câu lệnh 2>;

Tham khảo

*Dạng thiếu:

if <điều kiện> then <câu lệnh>;

VD: if a>b then write(a);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.

*Dạng đủ:

if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

VD: if a>b then write(a) else write(b);

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

if (a<b) cout<<a;

else cout<<b;

return 0;

}

???

Dựa vào thuật toán sau viết chương trình đó b, xin lỗi mình kh ghi rõ

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

if (a<b) cout<<a;

else cout<<b;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int n,i;

double s;

int main()

{

cin>>n;

s=1;

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

{

if (i%2==0) s=s+1/(i*1.0);

else s=s-1/(i*1.0);

}

cout<<fixed<<setprecison(2)<<s;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

if (b!=0) cout<<a/b;

else cout<<"b khong thoa man dieu kien";

return 0;

}

#include <iostream>
using namespace std;
int main()
{
    int a,b,c,kt;
    cout<<"Nhap a=";
    cin>>a;
    cout<<"Nhap b=";
    cin>>b;
    cout<<"Nhap c=";
    cin>>c;
    if ((a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a))
    {
        kt=0;
        if (a*a==b*b+c*c) kt=1;
        if (b*b==a*a+c*c) kt=1;
        if (c*c==a*a+b*b) kt=1;
        if ((a==b) and ((a<c) or (a>c)) and ((b<c) or (b>c))) kt=2;
        if ((b==c) and ((b<a) or (b>a)) and ((c<a) or (c>a))) kt=2;
        if ((c==a) and ((c<b) or (c>b)) and ((a<b) or (a>b))) kt=2;
        if ((a==c) and (b==c)) kt=3;
        if (kt==2) cout<<"Day la tam giac can";

else cout<<"Day khong la tam giac can";
    }
    else cout<<"Day khong la ba canh trong mot tam giac";
    return 0;
}

var s,a,b:longint;