Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Найти номер первой из строк матрицы, содержащих равное количество положительных и отрицательных элементов https://www.cyberforum.ru/ pascalabc/ thread1097983.html Дана целочисленная матрица размера M*N. Найти номер первой из ее строк, содержащих равное количество положительных и отрицательных элементов (нулевые элементы матрицы не учитываются). Если таких строк нет, то вывести 0.	Pascal ABC Изменить код, чтобы контуры были черные, а сама звезда была зелено-красная Program Zvezda; Uses GraphABC; begin setpencolor(clRed); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289);
Pascal ABC Дан целочисленный массив размера N. Удалите из массива все нечетные числа и вывести размер полученного массива и его содержимое Дан целочисленный массив размера N. Удалите из массива все нечетные числа и вывести размер полученного массива и его содержимое. https://www.cyberforum.ru/ pascalabc/ thread1097980.html	Pascal ABC Осуществить сдвиг элементов массива влево на K позиций. Последние К элементов полученного массива положить равными 0 https://www.cyberforum.ru/ pascalabc/ thread1097975.html Дан массив размера N и целое число K(1<=K<N). Осуществить сдвиг элементов массива влево на K позиций. Последние К элементов полученного массива положить равными 0.
Дан массив размера N. Найти номер его первого локального минимума Pascal ABC Дан массив размера N. Найти номер его первого локального минимума.(локальный минимум- это элемент, который меньше любого из своих соседних).	Pascal ABC Найти число, полученное при прочтении числа N справа налево https://www.cyberforum.ru/ pascalabc/ thread1097965.html Дано целое число. Используя операции деления нацело и взятия остатка от деления, найти число, полученное при прочтении числа N справа налево.
*Pascal ABC Дано целое число. найти произведение N!=12...N** Дано целое число. найти произведение N!=12...*N. Чтобы избежать целочисленного переполнения, вычислить это произведение с помощью вещественной переменной и вывести его как вещественное число. https://www.cyberforum.ru/ pascalabc/ thread1097962.html	Pascal ABC Даны четыре целых числа, одно из которых отличное от трех других, равных между собой. определите порядковый номер числа, отличного от остальных даны четыре целых числа, одно из которых отличное от трех других, равных между собой. определите порядковый номер числа, отличного от остальных.
Pascal ABC Найти скалярное произведение векторов https://www.cyberforum.ru/ pascalabc/ thread1097933.html Найти скалярное произведение векторов вектор а=(a1,a2,..an) и вектор b=(b1,b2,..bn) Добавлено через 2 часа 37 минут Помогите срочно!	Pascal ABC Определить, можно ли квадрат со стороной a вписать в окружность заданного радиуса R? Определить, можно ли квадрат со стороной a вписать в окружность заданного радиуса R? Точность сравнения вещественных величин 0.001. Входные данные: Во входном потоке задано два вещественных числа - радиус окружности R и сторона квадрата a. Значение всех исходных величин не превышает 30000. Выходные данные: В выходной поток вывести 'YES' или 'NO'. Пример входного файла (input.txt): 2.5... https://www.cyberforum.ru/ pascalabc/ thread1097792.html
Pascal ABC Упорядочить по возрастанию параллель побочной диагонали расположенной под диагональю в паскале: Дан двумерный массив a, размером (nхn). Упорядочить по возрастанию параллель побочной диагонали расположенной под диагональю.	Pascal ABC Найти произведение двух наибольших из трех введенных с клавиатуры чисел Все ли верно? И где ошибки? Спасибо заранее. program n1; var a,b,c,d,e: real; begin writeln('введите числа '); read(a, b, c); if a-b>=0 then d:=a else d:=b; if a-c>=0 then e:=a https://www.cyberforum.ru/ pascalabc/ thread1097690.html

~~raccoonlove~~

Заблокирован

16.02.2014, 17:16

Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа - Pascal ABC - Ответ 5789136

16.02.2014, 17:16. Показов 3875. Ответов 1

Метки (Все метки)

Сообщение было отмечено KSsjunyaaa как решение

Решение

Pascal

var
    s: string;
    sum, i: integer;
begin
ReadLn(s);
sum := 0;
 
for i := 1 to Length(s) do
    sum := sum + ord(s[i]) - ord('0');
 
WriteLn(sum);
ReadLn;
end.

Вернуться к обсуждению:
Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.02.2014, 17:16

Готовые ответы и решения:

Задача №647. Дана строка, изображающая целое число. Вывести сумму цифр этого числа
Задача №647. Дана строка, изображающая целое число. Вывести сумму цифр этого числа.

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

Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа
Дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа. не работает...

	16.02.2014, 17:16

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

16.02.2014, 17:16

Помогаю со студенческими работами здесь

дана строка, изображающая целое положительное число. Вывести сумму цифр этого числа. Строка должна вводиться с клавиатуры.
Будьте добры,помогите с решением задачи: дана строка, изображающая целое положительное число....

Дана строка, изображающая целое число. Вывести сумму цифр этого числа.
Помогите пожалуйста написать программы на форме самым примитивным способом,заранее благодарю...

Дана строка, изображающая двоичную запись целого числа. Вывести строку, изображающую десятичную запись этого же числа
Дана строка, изображающая двоичную запись целого числа. Вывести строку, изображающую десятичную...

Дана строка, изображающая десятичную запись целого положительного числа. Вывести строку изображающую двоичную запись этого же числа
Вот так вот

Наверх