Var a : Integer;
s : Set of Byte;
Begin
s:=[];
Readln(a);
Repeat
If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
a:=a div 10;
Until a=0;
Writeln;
end.
"Я самый главный!"- заявил монитор, на мне возникает информация и изображения.
"Нет, я самая главная,- сказала клавиатура, без меня никак, не сможешь ничего оттреадактировать,вбить информацию в память, общаться - да вообще ничего!"
Но память возразила : " Ээх вы, я тут главнее всех, как вы без меня! Ничего не сохранишь, не запомнишь, да в общем без меня очень сложно что-то представить!"
"Да вы что? - начал возмущаться процессор, - Главных не должно быть, мы все представляем собой одно целое!" Так они и воссоединились и представляют собой одну частичку главного .
<h2>Код</h2>
#include <iostream>
#include <fstream>
#include <math.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int x = 0, y = 0;
double R = 0;
cout << "y = "; cin >> y;
cout << "x = "; cin >> x;
R = abs(pow(pow(sin(y), 2.0) + 6.835, 1.0/2) + exp(x));
ofstream outputResult("output.txt");
outputResult << R;
outputResult.close();
}
<h2>Проверка</h2>
[Скриншот]
Файл сохраняется в папке с файлом проекта.
1. ВАР
2. ЖАР
3. РОГ
4. ХОД
5. БОР
6. ГОН
7. БЕГ
8. ___
9. КОС
10. МОЛ