Технический форум - Работа с простой переменной

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Работа с простой переменной (http://www.tehnari.ru/f41/t61611/)

Edwin017

22.12.2011 20:18

Работа с простой переменной

Помогите решить! Дано натуральное число. Верно ли, что сумма цифр данного числа равна А (А вводится с клавиатуры).

Vladimir_S

22.12.2011 20:23

http://www.tehnari.ru/f41/t61597/#post639316
К Вам тоже относится.

Edwin017

22.12.2011 20:25

Язычек паскаль)Сорри забыл написать)

Vladimir_S

22.12.2011 20:34

Да пожалуйста:

Код:

VAR

 N:LongInt;

 S,A:Byte;

BEGIN

 Write('N= ');

 Readln(N);

 Write('A= ');

 Readln(A);

 S:=0;

 Repeat

  S:=S+(N mod 10);

  N:=N div 10;

 Until N=0;

 Writeln(S=A);

 Readln;

END.

Edwin017

22.12.2011 20:40

Спасибо)Если у вас будет свободная минутка,сможете еще пару программ написать?

Vladimir_S

22.12.2011 20:51

Цитата:

Сообщение от Edwin017 (Сообщение 639433)

Спасибо)Если у вас будет свободная минутка,сможете еще пару программ написать?

Зависит от наличия этой минутки и от самих программ. Например, скажу сразу - искать максимальные и минимальные элементы массивов не буду из принципа.

Часовой пояс GMT +4, время: 17:31.