Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Сумма цифр трехзначного числа

Автор: maxi91m 2.5.2007, 22:43

Не могу понять как решать.

ссоставьте программу вычесления суммы цифр введённого с клавиатуры трёхзначного натурального числа. Например, для числа 128 сумма цифр равна 11.

Зарание спосибо.

Автор: anwe 2.5.2007, 22:46

Может http://forum.vingrad.ru/index.php?showtopic=149073&view=findpost&p=1118574 натолкнет. Это же элементарно.

Автор: sergejzr 2.5.2007, 23:06

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

Автор: darkart 2.5.2007, 23:08

http://forum.vingrad.ru/topic-87915/unread-1.html

Автор: maxi91m 3.5.2007, 16:33

Спасибо

Автор: maxi91m 3.5.2007, 20:04

А можно её решить без использования функции и рекурсий - через операторы?
А то у мея стоит это задание после темы операторы.

Добавлено @ 20:16
А помогите еще задачку решить, а то я занимаюсь самообразованием и никак не получается у меня её решить

Составте программу, определяющею, входит ли введёная вами цифра в десятичную запись введённого вами числа, и печатающею сообщение о том, входит ли эта цифра в запись числа или нет.

зарание спасибо.

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

Автор: Alexeis 3.5.2007, 20:19

Модератор: настоятельно рекомендую почитать правила. На первый раз тему переименовал сам. В дальнейшем буду просто закрывать.

Добавлено через 2 минуты и 30 секунд

Цитата(maxi91m @ 3.5.2007, 20:04

)

А помогите еще задачку решить, а то я занимаюсь самообразованием и никак не получается у меня её решить

Составте программу, определяющею, входит ли введёная вами цифра в десятичную запись введённого вами числа, и печатающею сообщение о том, входит ли эта цифра в запись числа или нет.

Модератор: Пожалуйста, один топик - один вопрос.

Для разных задач создавайте различные темы.

Автор: LesnoyChelovek 3.5.2007, 21:51

Блин, не люблю когда люди не хотят помогать человеку, и пишут всякую фигню.
Вот на задачу код:

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var i,s:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Writeln('Vvedit chislo');
  readln(i);
  if (i>999) or (i<99) then
  begin
    writeln('Chislo ne popadaet pod usloviya!');
    exit;
  end;
  s:=(i mod 10)+(i div 100)+(i div 10 mod 10);
  writeln('Summa=',s);
  readln;
end.