Алгоритм перехода улицы по свотофору
1.Посмотреть какой цвет на светофоре
2.Если зеленый то посмотреть направо
3.Посмотреть налево
4.Если машын нету, то начать переходить
5.Дойти до островка и снова посмотреть направо и налево и перейти дорогу
Алгоритм посадки дерева
1.Взять лопату и выкопать ямку, положыть лопату
2.Взять садженец и поставить его в ямку
3.Взять ведро и полить садженец, положыть ведро
4.Взять лопату и закопать садженец, положыть лопату
5.Взять ведро и полить садженец, положить ведро
var
a,i:integer;
s:string;
begin
readln(a);
str(a,s); //переводим число в строку, вот такой я нехороший
for a:=1 to length(s)-1 do
for i:=a+1 to length(s) do
if s[a]=s[i] then
begin;
writeln('Yes');
exit;
end;
writeln('No');
end.
Пример ввода:
1224
Пример вывода:
Yes