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

str(n,s);

d:=length(s);

if s[d-1]+s[d]='68' then writeln('day la bien so dep')

else writeln('day khong phai bien so dep');

Chọn B

program SMAX;

const

MAXN = 10000000;

var

n, i: longint;

a: int64;

curSum, maxSum: int64;

f: text;

begin

assign(f, 'SMAX.INP');

reset(f);

readln(f, n);

curSum := 0;

maxSum := -1000000000000000000; { rất nhỏ }

for i := 1 to n do

begin

read(f, a);

if curSum + a > a then

curSum := curSum + a

else

curSum := a;

if curSum > maxSum then

maxSum := curSum;

end;

close(f);

assign(f, 'SMAX.OUT');

rewrite(f);

writeln(f, maxSum);

close(f);

end.

Em viết lại ý tưởng:

- Ta lập một hàm xét xem một số nguyên N có phải là SNT không. 

+ nếu N <= 1 thì hiển nhiên không phải

+ nếu N >= 2: ta xét số dư của N cho các số từ 2 đến phần nguyên của căn N

* nếu N chia hết cho bất kỳ số nào trong khoảng [2; phần nguyên căn N] thì N không là SNT, ngược lại N là SNT.

- Áp dụng hàm đó vào dãy a(N), cho biến dem <-- 0;

+ xét từ a[1] trở đi đến a[n], nếu a[i] là SNT thì dem <-- dem+1. Vòng lặp thực hiện đến khi i = N.

- Thông báo giá trị của dem hoặc không có snt trong dãy nếu dem = 0

uses crt;
var n,s:integer;
{--------------------chuong-trinh-con-nhap---------------------------}
procedure nhap(var a:integer);
begin
write('n='); readln(a);
end;
{-------------------chuong-trinh-con-tinh-tong-cac-chu-so-trong-1-so---------------------}
procedure tong(var x:integer);
var i,d,t,b,c,e:integer;
st:string;
begin
str(x,st);
t:=0;
d:=length(st);
for i:=1 to d do
begin
val(st[i],b,c);
t:=t+b;
end;
if t<10 then writeln(t)
else tong(t);
end;
{---------------------chuong-trinh-chinh------------------------}
begin
clrscr;
nhap(n);
tong(n);
readln;
end.

#include<bits/stdc++.h>
using namespace std;
#define ll long long

int main(){
    ios_base::sync_with_stdio(0);cin.tie(0);
    string s;cin>>s;
    ll t;
    while(1){
        t=0;
        for(ll i=0;i<s.size();i++)t+=s[i]-'0';
        s=to_string(t);
        if(s.size()==1)return cout<<s,0;
    }
}