//PascalABC.Net 3.1 сборка 1200
const
n = 15;
begin
var a := ArrRandom(n, 0, 50);
var b := ArrRandom(n, 0, 50);
a.Println;
b.Println;
a := a.Concat(b).ToArray;
a.Println;
a.Sort;
a := a.Slice(0, 1, n);
a.Println;
end.
Это событие нажатия на кнопку, которая находится на Form1.
Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to n do
if (i mod 3=0)and(i mod 6<>0)
then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>n = 100
k = 17</span>
#include <iostream>
#include <string>
using namespace std;
bool isb(char t)
{
bool f=false;
string dic="abcdefghijklmnopqrstuvwxyz1234567890";
for(int i=0;i<dic.size();i++)
if(dic[i]==t)
return !f;
return f;
}
int main()
{
string s;
int i=0;
getline(cin,s);
while(i<s.size())
{
if(isb(s[i]))
{
s.insert(i,1,s[i]);
i++;
}
i++;
}
cout<<s<<endl;
return 0;
}
Символы, носители информации