Delphi - Помощь студентам

~Az@liya~ · 12.06.2010, 19:39

1. Дано натуральное число N. Определить, является ли оно совершенным. Совершенное число N равно сумме всех своих делителей, не превосходящих само N.
2. Вычислить среднюю за неделю температуру воздуха.
3. Написать программу, которая удаляет начальные пробелы из введенной с клавиатуры строки.

У меня не получаются эти задачи. Я буду очень признательна,если вы мне поможете))

slips · 12.06.2010, 20:14

1. http://programmersforum.ru/showthread.php?t=33864

2. http://programmersforum.ru/showthrea...E0%F2%F3%F0%E0

3.http://programmersforum.ru/showthrea...F2%F0%EE%EA%E8

P.S. всё уже давным давно решено до вас, пользуйтесь

~Az@liya~ · 12.06.2010, 20:14

Спасибо большое))))

~Az@liya~ · 12.06.2010, 21:19

Блин,а я там 2 и 3 задачи не поняла(((

~Az@liya~ · 12.06.2010, 21:19

Они у меня не получаются((

~Az@liya~ · 12.06.2010, 21:22

Это 3 задача. Что там нужно дописать?
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
function TrimLeft(const S: string): string;
var
I, L: Integer;
begin
L := Length(S);
I := 1;
while (I <= L) and (S[i] <= ' ') do Inc(I);
Result := Copy(S, I, Maxint);
end;

DoDge_VipeR · 13.06.2010, 04:43

допишите основную программу и все!

12.06.2010, 19:39	#1
~Az@liya~ Пользователь Регистрация: 08.06.2010 Сообщений: 20	Delphi 1. Дано натуральное число N. Определить, является ли оно совершенным. Совершенное число N равно сумме всех своих делителей, не превосходящих само N. 2. Вычислить среднюю за неделю температуру воздуха. 3. Написать программу, которая удаляет начальные пробелы из введенной с клавиатуры строки. У меня не получаются эти задачи. Я буду очень признательна,если вы мне поможете))

12.06.2010, 20:14	#2
slips Форумчанин Регистрация: 28.10.2008 Сообщений: 350	1. http://programmersforum.ru/showthread.php?t=33864 2. http://programmersforum.ru/showthrea...E0%F2%F3%F0%E0 3.http://programmersforum.ru/showthrea...F2%F0%EE%EA%E8 P.S. всё уже давным давно решено до вас, пользуйтесь Всё о Слот автоматах и Рейтинг Топ 10 казино

13.06.2010, 04:43	#7
DoDge_VipeR Форумчанин Регистрация: 30.04.2010 Сообщений: 317	допишите основную программу и все! icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7	666dart666	Помощь студентам	11	04.11.2010 17:57
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi	Верчик	Помощь студентам	9	02.03.2009 17:46
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью?	redred	Общие вопросы Delphi	10	11.12.2007 10:43
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет?	dagarik	БД в Delphi	7	22.10.2007 17:54
не StringGrid1.Cells[1,1]:='Delphi'; а вот так SG1.C[1,1]:='Delphi'	Nemesisking	Компоненты Delphi	7	08.09.2007 03:27

12.06.2010, 21:19	#4
~Az@liya~ Пользователь Регистрация: 08.06.2010 Сообщений: 20	Блин,а я там 2 и 3 задачи не поняла(((

12.06.2010, 21:22	#6
~Az@liya~ Пользователь Регистрация: 08.06.2010 Сообщений: 20	Это 3 задача. Что там нужно дописать? program Project2; {$APPTYPE CONSOLE} uses SysUtils; function TrimLeft(const S: string): string; var I, L: Integer; begin L := Length(S); I := 1; while (I <= L) and (S[i] <= ' ') do Inc(I); Result := Copy(S, I, Maxint); end;