#!/usr/bin/python
# -*- coding: utf-8 -*-
print u"введите число"
a = str(input())
for i in a:<span>
</span><span> if i+i in a:</span><span>
print i+i, u"содержит"</span>
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.
1)
var
mas: array [1..5] of integer;
i:integer;
begin
for i:=1 to 5 do
read(mas[i]);
for i:=1 to 5 do begin
mas[i]:=mas[i]-20;
write(mas[i],' ');
end;
end.
2)
var
mas: array [1..8] of real;
i:integer;
begin
for i:=1 to 8 do
read(mas[i]);
for i:=1 to 8 do begin
if i mod 2 = 0 then
write(mas[i]-1,' ')
else
write(mas[i]+1,' ')
end;
end.
1. Подошёл к переходу
2. Если красный свет то стоишь и ждёшь зелёного
3. При зелёном свете смотришь по сторонам, если нет машин, то идёшь.
4. Доходя до середины ещё раз осмотрись
5. Если всё чисто, продолжай путь