![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Николс |
![]()
Сообщение
#1
|
Гость ![]() |
Описать функцию, которая возвращает сумму первой и последней цифр входящих в запись числа типа Longint .
подскажите пожайлуста! что я не правильно делаю? Цитата s:=0; edit1.Text:=floattostr(li); s:= li mod 10; {первая цифра} while li>=10 do li:=li div 10; {пока не останется последняя цифра} begin DigitSum:=s+li; end; Form1.caption:=inttostr(digitsum); end; или подскажите как функции задавать в делфи |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 19:02 |