Мой сайт
Главная | Регистрация | Вход
Среда, 20.02.2019, 15:26
Меню сайта
Теги
Наш опрос
Свободное программное обеспечение...
Всего ответов: 76
Главная » 2010 » Октябрь » 18 » Задача 2.
19:03
Задача 2.
Составьте программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа. Например, для числа 128 сумма цифр 11, для числа 345 сумма цифр 12.
Просмотров: 196 | Добавил: yaro-vik | Рейтинг: 5.0/1
Всего комментариев: 1
yaro-vik
VAR
n,n_1,n_2,n_3,o,summa:word;
n_s:string;
BEGIN
write('Введите трехзначное число:');
readln(n);
str(n,n_s);
val(n_s[1],n_1,o);
val(n_s[2],n_2,o);
val(n_s[3],n_3,o);
summa:=n_1+n_2+n_3;
writeln('Сумма цифр равна ',summa);
END.

* переменные n_1, n_2, n_3 - первая, вторая и третья цифра введенного числа
* переменная o - содержит результат выполнения функции val (если o=0, то функция выполнена успешно)
* переменная n_s - это же введенное число только строкового типа.

19.10.2010 | Вторник | 20:25

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Поиск
Календарь
«  Октябрь 2010  »
ПнВтСрЧтПтСбВс
    123
45678910
11121314151617
18192021222324
25262728293031
Архив записей
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Рекомендуем
Copyright MyCorp © 2019