Program HOC24;

var i: char;

d: byte;

begin

d:=0;

for i:='a' to 'z' do

begin

write(i,' ');

d:=d+1;

if d mod 10 = 0 then readln;

end;

readln

end.

Program HOC24;

var i,t,k,j: byte;

n: integer;

begin

write('Nhap so: '); readln(n);

t:=0;

while n<>0 do

begin

i:=n mod 10;

t:=t+i;

n:=n div 10;

end;

k:=0;

while t>10 do

begin

j:=t mod 10;

k:=k+j;

t:=t div 10;

if t<10 then k:=k+t;

end;

write(k);

readln

end.

thank

Program HOC24;

var n: integer;

t,max: byte;

begin

write('Nhap so nguyen duong: '); readln(n);

max:=n mod 10; n:=n div 10;

while n<>0 do 

begin

t:=n mod 10;

if t>max then max:=t;

n:=n div 10;

end;

write('Chu so lon nhat cua so do la: ',max);

readln

end.

Bạn ấn vào trang cá nhân của mình để xem những câu bạn đã từng trả lời nhé.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],b[1000]={0},n;

int main(){

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

freopen("dayso.out","w",stdout);

cin>>n;

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

cin>>a[i];

b[a[i]]+=1;

}

sort(a+1,a+n+1);

int dem=0;

for (int i=1; i<=a[n]; i++) 

if (b[i]>0) dem++;

cout<<dem;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a[1000],b[1000]={0},n;

int main(){

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

freopen("dayso.out","w",stdout);

cin>>n;

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

cin>>a[i];

b[a[i]]+=1;

}

sort(a+1,a+n+1);

int dem=0;

for (int i=1; i<=a[n]; i++) 

if (b[i]>0) dem++;

cout<<dem;

return 0;

}

này là pascal ạ?

uses crt;

var i,n:integer;

begin

clrscr;

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

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

if i mod 2=0 then write(i:4);

readln;

end.

#include <iostream>

#include <math.h>

using namespace std;

int main()

{

int n ;

cin >> n;

for (int i = int(sqrt(n)); i > 0 ;i--)

{

if (n%i ==0 )

{

cout << i <<" " << n/i <<endl;

break;

}

}

return 0 ;

}

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

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

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

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long m,n,i;

int main()

{

cin>>m>>n;

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

if (i%2==1) cout<<i<<" ";

return 0;

}