Добавить работы Отмеченные0
Работа успешно отмечена.

Отмеченные работы

Просмотренные0

Просмотренные работы

Корзина0
Работа успешно добавлена в корзину.

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека
Особые предложения 2 Открыть
1,99 € В корзину
Добавить в список желаний
Хочешь дешевле?
Идентификатор:415766
 
Автор:
Оценка:
Опубликованно: 03.01.2011.
Язык: Латышский
Уровень: Университет
Литературный список: Нет
Ссылки: Не использованы
Фрагмент работы

MeanTest.dpr.txt
program MeanTest;
{$APPTYPE CONSOLE}
uses
SysUtils;
(** Returns the average of string S character codes. *)
function Mean(const s: String): integer;
var
i, L: integer;
begin
Result:= 0;
L:= Length(s);
for i:= 1 to L do Inc(Result, Ord(s[i]));
if (L<>0) then Result:= Result div L;
end;…

Коментарий автора
Загрузить больше похожих работ

Atlants

Выбери способ авторизации

Э-почта + пароль

Э-почта + пароль

Неправильный адрес э-почты или пароль!
Войти

Забыл пароль?

Draugiem.pase
Facebook

Не зарегистрировался?

Зарегистрируйся и получи бесплатно!

Для того, чтобы получить бесплатные материалы с сайта Atlants.lv, необходимо зарегистрироваться. Это просто и займет всего несколько секунд.

Если ты уже зарегистрировался, то просто и сможешь скачивать бесплатные материалы.

Отменить Регистрация