Форум PHP программистов

[ Поиск ] - [ Пользователи ] - [ Календарь ]

Полная Версия: Паскаль

DmitryOpalev

21.10.2011 - 23:48

Ребят, моему другу по информатике задали задачу;“Дано натурвльное число, найдти разность между этим числом и суммой его цифр“. И он, и я нубы в паскале, поэтому обращаюсь за помощью к вам. Кто-нибудь может помочь?

Спустя 5 минут, 26 секунд (21.10.2011 - 22:53) Игорь_Vasinsky написал(а):

Нахождение суммы цифр натурального числа.

var s,k,d:integer;
begin
k:=4367; { set your own number here, or read it }
s := 0;
write(' The sum of dights of ',k);
while k>0 do
  begin
  d:=k mod 10;
  s:=s+d;
  k:=k div 10;
  end;
writeln(' equals ',s);
end.

уж допелить то сможешь :D :D :D

Спустя 1 минута, 57 секунд (21.10.2011 - 22:55) DmitryOpalev написал(а):

ой я опечатался... не сумма а разность (т.е. s-d?)

Спустя 4 минуты, 35 секунд (21.10.2011 - 23:00) Игорь_Vasinsky написал(а):

ну видимо да.. а что даж паскал не установлен? проверить то

Спустя 1 минута (21.10.2011 - 23:01) DmitryOpalev написал(а):

нет

Спустя 4 минуты, 9 секунд (21.10.2011 - 23:05) Игорь_Vasinsky написал(а):

ну так пришло время установить.. у меня раньше стоял.. на старом ноуте.. на этом не ставил.

Спустя 7 часов, 39 минут, 38 секунд (22.10.2011 - 06:45) Эли4ка написал(а):

бывает..

Спустя 6 часов, 53 минуты, 2 секунды (22.10.2011 - 13:38) johniek_comp написал(а):

вау, паскаль! прикольно....

Спустя 15 часов, 51 минута, 44 секунды (23.10.2011 - 05:29) Эли4ка написал(а):

Цитата

вау, паскаль! прикольно....

старенький,но его до сих пор многие используют..

_____________
Курс валют

Быстрый ответ:

Здесь расположена полная версия этой страницы.