Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
#include <iostream>
#include <cmath>
using namespace std;
int main() {
int n=0;
cin>>n;
long long nn=pow(n,2);
cout<<nn<<endl;
while(nn!=0)
{
if(nn%10==6){cout<<"DA"; break;}
nn/=10;
}
if(nn==0)cout<<"NET";
return 0;
}
1)создаёт папку этого документа.
2)Вставка видео,картинок,
нельзя поменять структуру,по центру/сбоку и т.п. сплошной текст