<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача М</em>
begin
var a:=ReadInteger.ToString.AdjacentGroup;
var f:=False;
foreach var g in a do
if g.Count>1 then begin
Write('YES'); f:=true; break
end;
if not f then Write('NO')
end.
<u>Примеры</u>
5221
YES
1232
NO
<em>Задача О</em>
begin
var s:=ReadInteger.ToString;
if s.Length<>(s.Distinct).Count then Write('YES')
else Write('NO')
end.
<u>Примеры</u>
212
YES
12345
NO
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int a,s=0;
for(int i=0;i<10;i++){
cin>>a;
if(a>5)s=s+a;
}
cout<<s;
cin.get();
cin.get();
return 0;
}
Пример ввода:
1
2
3
4
5
10
10
10
10
10
Пример вывода:
50
Визитки лучше всего делать в векторном графическом редакторе, таких как CorelDraw (платный) или InkScape (бесплатный)
Потому что это классическая задача о трех домах и трех колодцах, она не имеет решения, один (пусть последний) путь обязательно невозможно построить не рересекая другой.
Знайка это знал, и предложил им помериться
Объяснение:
Вот таблица, горизонтальные не принимает;)