Program Task28;
uses crt;
Var n:string;
Begin
write('Zadaite slovo dlya doma= '); readln(n);
{в центр можно вписать 8 символов и домик будет тогда целый}
writeln(' ___/\___');
writeln(' __/__\___');
writeln(' __/___\__');
writeln(' __/____\__');
writeln('__/______\__');
writeln(' _|________|_');
writeln(' _|________|_');
writeln(' _|' , n , '|_');
writeln(' _|________|_'); Readkey;End.
Поочередно удаляем повторяющиеся буквы
НАВВАНУККТЦЙЧТТЧМЦЙЙЦМЙЦКОБПРРПБНГГНХХНЪЪОЬУУФФЙЙЬЧИИЧСНШЩЗЗЩЖЭЭЖШНГККГ
НААНУТЦЙЧЧМЦЦМЙЦКОБППБНННОЬЬЧЧСНШЩЩЖЖШНГГ
ННУТЦЙММЙЦКОББНОСНШШН
УТЦЙЙЦКОНОСНН
УТЦЦКОНОС
УТКОНОС
#include <iostream>
#include <sstream>
using namespace std;
int ispal(int x)
{
stringstream a;
a<<x;
string s =a.str();
string t="";
for(int i=s.length()-1;i>=0;i--)
t+=s[i];
for(int i=0;i<s.length();i++)
if(s[i]!=t[i])
return 0;
return 1;
}
int main()
{
int n;
cin>>n;
while(!ispal(n))
n++;
cout<<n;
return 0;
}
1) С:\Система
2) С:\Пользователи\Никита\Книги\Гарри Поттер и Кубок огня.pdf
3) С:\Пользователи\Никита\Фото\Истра.jpeg
4) С:\Пользователи\Никита\Документы\История ЭВМ.doc
5) С:\Библиотека
<span>6) С:\Рабочий стол\Снигери.png</span>