Bài 17: Chương trình con và phân loại

Program HOC24;

var f1,f2: string;

i,t: byte;

code: integer;

begin

write('Nhap xau: '); readln(f1);

for i:=1 to length(s1) do

begin

val(s[i],t,code);

if t mod 5=0 then write(t,' ');

end;

readln

end.

#include <bits/stdc++.h>

using namespace std;

string st,d;

int main()

{

freopen("dkt.inp","r",stdin);

cin>>st;

d=st.length();

for (int i=0; i<=d-1; i++)

st[i]-=32;

cout<<st;

return 0;

}

uses crt;

var a,b,c,nn:integer;

//chuongtrinhcon

function min(var x,y:integer):integer;

begin

if x<y then min:=x

else min:=y;

end;

//chuongtrinhchinh

begin

clrscr;

readln(a,b,c);

nn=min(a,b);

nn=min(nn,c);

writeln(nn);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

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

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long i,n,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

string st1,st2;

int d1,d2;

int main()

{

cin>>st1>>st2;

d1=st1.length();

d2=st2.length();

if (d1<d2) cout<<st1;

else cout<<st2;

return 0;

}

Program HOC24;

var i,t,d: byte; 

code: integer;

s: string;

begin

write('Nhap xau: '); readln(s);

write('Xau so: ');

t:=0;

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then 

begin

write(s[i]);

val(s[i],d,code);

t:=t+d;

end;

writeln;

write('Xau chu: ');

for i:=1 to length(s) do if s[i] in ['A'..'z'] then write(s[i]);

writeln;

write('Tong cac con so cua xau so: ',t); 

readln

end.