For i:=1 to n do begin
if not(a[i] mod 3=0) or (a[i]=0) then
a[i]:=1
else
k:=a[i];
end;
for i:=1 to n do
if (a[i]<k) and (a[i]<>1) then
k:=a[i];
j:=0;
for i:=1 to n do
if a[i]=k then
j:=j+1;
end;
writeln(j);
end.
#include <iostream>
using namespace std;
int main()
{
int n,S,i;
cin>>n;
S=0;
for(i;i<=n;i++)
{
S=sqrt(2+S);
}
cout<<S;
return 0;
}
1. var i,n:integer;
begin
readln(n);
for i:=1 to n do
begin
if(n mod i = 0) then
writeln(i);
end;
<span>end.
2.
var shet1,count,sum:integer;
begin
shet1:=2;
sum:=2;
count:=1;
while sum<=119 do
begin
count:=count+1;
shet1:=shet1+1;
sum:=sum+shet1;
end;
write('count = ',count);
<span>end.
3.
var a:integer;
begin
read(a);
while(a <> 0)
do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
</span></span>