1) program z1;
var k,i:integer;
begin
i:=4;
k:=0;
while i<=20 do
begin
if i mod 2=0 then
begin
writeln(i);
k:=k+i;
end;
i:=i+1;
end;
writeln('сумма ',K)
end.
2) program z2;
var i,k:integer;
begin
k:=1;
i:=3;
repeat
if i mod 2 <> 0 then
begin
writeln(k,')',i);
k:=k+1;
end;
i:=i+1;
until k>20;
end.
Это же слишком элементарно, чтобы самому не сделать...
var x:real;
begin
writeln('vvedi x:');
readln(x);
writeln('y=',2*x-5/x-1);
end.
<span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на третьем месте цепочки стоит одна из бусин H, E;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD BHED EDHC DEHE
</span><span>– на втором месте – одна из бусин D, E, C, которой нет на третьем месте;
</span><span>DEHD HEHC DCEE DDHE DCHE HDHD EDHC DEHE
</span><span>– в начале стоит одна из бусин D, H, B, которой нет на втором месте;
</span>DEHD HEHC DCEE DCHE HDHD DEHE
<span>
– в конце – одна из бусин D, E, C, не стоящая на первом месте.
</span>HEHC DCEE DCHE HDHD DEHE<span>
Ответ: 5</span>
var
c: string;
d: byte;
b: boolean;
begin
readln(c);
foreach a: string in System.IO.File.ReadAllLines('in.txt') do
begin
d += 1;
b := false;
if (pos(c, a) > 0) then
begin
b := true;
writeln('Вхождение! Строка №', d, '. Количество вхождений: ', (a.Length - a.Replace(c, '').Length)/c.Length);
end;
end;
writeln(not b ? 'There aren`t :(' : '');
<span>end.
Тут получится сухая блок-схема, но длинная... Воть
Не люблю их</span>
Вот: 1. самый короткий путь равен 16; 2. 22; 3. 21
