#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;
}
111111111111000000000000<u /> в 2 с.сч
1) Действие
(FFF000)16→0*
![16^{0}](https://tex.z-dn.net/?f=+16%5E%7B0%7D+)
+0*
![16^{1}](https://tex.z-dn.net/?f=+16%5E%7B1%7D+)
+0*
![16^{2}](https://tex.z-dn.net/?f=+16%5E%7B2%7D+)
+15*
![16^{3}](https://tex.z-dn.net/?f=+16%5E%7B3%7D+)
+15*
![16^{4}](https://tex.z-dn.net/?f=+16%5E%7B4%7D+)
+05*
![16^{5}](https://tex.z-dn.net/?f=+16%5E%7B5%7D+)
=
![16773120_{10}](https://tex.z-dn.net/?f=+16773120_%7B10%7D+)
2) Действие
16773120:2=0
8386560:2=0
4193280:2=0
2096640:2=0
1048320:2=0
524160:2=0
26080:2=0
131040:2=0
65520:2=0
32760:2=0
16380:2=0
32760:2=0
16380:2=0
8190:2=0
4095:2=1
2047:2=1
1023:2=1
551:2=1
255:2=1
127:2=1
63:2=1
31:2=1
15:2=1
7:2=1
3:2=1
1:2=1
Ответ смотри с низу верх.
Ответ:
var a:integer;
function Name1(a:integer):integer;
var i,c: integer;
begin
i:=0;
c:=2;
while i < 1 do
begin
if c*c=a then
writeln('Число '+a+' является квадратом четного числа '+c);
if c*c<a then
c:=c+2
else
i:=1;
if c*c>a then begin
writeln('Число '+a+' не является квадратом четных чисел');
i:=1;
end;
end;
end;
begin
writeln('Введите число:');
readln(a);
Name1(a);
end.
Объяснение:
Program E07;
uses crt;
var
S: string;
i,k: integer;
begin
clrscr;
writeln('Введите строку: ');
readln(S);
K:=0;
for i:=1 to length(S) do
if S[i] = ' ' then
K:=K+1;
writeln('В строке ',K:2,' пробелов!');
<span>end.</span>