Var
i,sum:Integer;
Begin
for i:=5 to 101 do
begin
if (i mod 2 <> 0) sum:=sum+i;
end;
Writeln(sum);
end.
ПО по распознаванию текста используется при больших объемах текста , который есть только в виде скана/графического файла. Переводит информацию из графического вида в оцифрованный текстовый.
Поскольку все делается автоматически, то экономит кучу человекочасов набора текста
радио (А.Попов)
1895 - первое публичное сообщение об открытии
.............................................................................
5-1;3-5;2-1;4-3;1-2. все правильно должно быть