ответ:
орна́мент (лат. ornamentum «украшение») — узор, основанный на повторе и чередовании составляющих его элементов; предназначается для украшения различных предметов (утварь, орудия и оружие, текстильные изделия, мебель, книги и так далее), архитектурных сооружений (как извне, так и в интерьере), произведений пластических искусств (главным образом прикладных), у первобытных народов также самого человеческого тела (раскраска, татуировка).
орнамент,связанный с поверхностью, которую он украшает и зрительно организует, как правило, выявляет или акцентирует архитектонику предмета, на который он нанесён. орнамент либо оперирует отвлечёнными формами, либо стилизует реальные мотивы.
объяснение:
ответ:
код c++, но нужен pascal:
1. // меньшиков. тренировка 7.
2. // 7c. игра умножения [multgame]
3. // дп с запоминанием, использующим map. доступ к ответу решенной за o(logn)
4. // ibelyaev: 25nov2010
5. #include
6. #include
7. #include
8.
9. using namespace std;
10.
11. int n;
12. void input()
13. {
14. cin> > n;
15. }
16. map memiswin;
17. // 1 - win
18. // -1 - not win
19. short iswin(long long value)
20. {
21. if (memiswin[value] ! = 0)
22. return memiswin[value];
23. short iscurwin = -1;
24. for (int i=2; i< =9; i++)
25. {
26. if (value * i > = n || iswin(value*i) == -1)
27. {
28. iscurwin = 1;
29. break;
30. }
31. }
32. memiswin[value] = iscurwin;
33. return iscurwin;
34. }
35. void solve()
36. {
37. if (iswin(1) == 1)
38. cout< < "stan wins.";
39. else
40. cout< < "ollie wins.";
41. }
42. int main()
43. {
44. freopen("input.txt","r",stdin);
45. freopen("output.txt","w",stdout);
46.
47. input();
48. solve();
49. return 0;
50. }
объяснение:
не уверен что тебе это подойдет.
у тебя вроде не полностью записано.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
s:=s.Replace('.','').Replace(',','');
s.Println
end.
Пример
> Раз, два, три, четыре, пять. Вышел зайчик погулять.
Раз два три четыре пять Вышел зайчик погулять
Решение, когда разных удаляемых символов может быть много
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
s:=s.Where(с->not(с in [',','.'])).JoinIntoString;
s.Println
end.