Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Вычислить количество элементов между максимальным и минимальным https://www.cyberforum.ru/ pascalabc/ thread1611581.html Дан одномерный массив, который содержит не более 40 целых чисел. Вычислить количество элементов между максимальным и минимальным.	Pascal ABC В заданном тексте заменить все заглавные буквы русского алфавита на строчные Составить программу, которая в заданном тексте заменяет все заглавные буквы русского алфавита на строчные.
Pascal ABC Pascal. ABC Вычислите F(X) в зависимости от введенного X. При составлении алгоритма использовать полную форму ветвления и вложенные структуры ветвления. https://www.cyberforum.ru/ pascalabc/ thread1611516.html	Pascal ABC Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и находящимися в ин https://www.cyberforum.ru/ pascalabc/ thread1611473.html Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и находящимися в интервале, левая граница которого равна 300.
Pascal ABC Напишите программу для заштрихованной области графика на языке Pascal Фото графика во вложении var x,y: real; begin read (x,y); if .........	Pascal ABC Дополните решение Убрать рандом,сделать ручной ввод. Выделить цветом выводимые результаты const nmax = 20; var A: array of integer; i, j, n, m, k: integer; sr: real; min: integer; https://www.cyberforum.ru/ pascalabc/ thread1611402.html
Pascal ABC Удалить из строки все цифры Дана строка, удалить из неё все цифры. Спасибо за внимание! https://www.cyberforum.ru/ pascalabc/ thread1611306.html	Pascal ABC Найти произведение всех цифр в строке Дана строка. Найти произведение всех цифр в данном предложении. Спасибо за внимание!
Pascal ABC Система должна позволять получать статистику заболеваемости студентов Задание: "Для автоматизации учёта больных в студенческой больнице необходимы сведения о студентах различных вузов и об их заболеваниях. Система должна позволять получать статистику заболеваемости студентов." Помогите пожалуйста, не могу понять как это вообще сделать. https://www.cyberforum.ru/ pascalabc/ thread1611246.html	Pascal ABC Вычисление по формуле https://www.cyberforum.ru/ pascalabc/ thread1611195.html Вычислить значение выражения по формуле {e}^{x}-x-2+{(1+x)}^{x}
Интерфес в паскале Pascal ABC Помогите, пожалуйста. нужно сделать интрефейс для данной программы (реализация шифра), т.е. нужно окно с кнопками: зашифровать/расшифровать и диалоговыми окнами для ввода и вывода текстов. Знаю, что можно как-то через forms в паскале. Но как именно не понимаю, как связать данный код с кодом для интерфейса. Помогите, пожалйста текст программы: program ATB; var l:real; function...	Pascal ABC Обратная польская запись https://www.cyberforum.ru/ pascalabc/ thread1611073.html Требуется преобразовать выражение в обратную польскую запись и посчитать. Программа вроде как почти готова, но не считаются выражения с унарным минусом. Как это исправить? const op1=; op2=; ops= ; symb=;

Mazilo

37 / 37 / 72

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

Сообщений: 206

13.12.2015, 17:03

Найти сумму цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа - Pascal ABC - Ответ 8481965

13.12.2015, 17:03. Показов 6206. Ответов 3

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

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

Решение

DogBox,

Pascal

Var n : string;
    S, D, k, i, code : integer;
begin
Writeln('Enter n');
Readln(n);//ввод числа, число считывается в формате строки
S:=0;//начальная установка для суммы
D:=1;//начальная установка для произведения
//цикл прохода по вводимому числу
For i:=1 to length(n) do
    begin
    val(n[i], k, code);//преобразовываем текущий элемент строки в цифру
    S:=S+k;//формируем сумму
    D:=D*k;//формируем произведение
    end;
If (s-d=1) then Writeln('Yes') else Writeln('No');
Readln;
end.

Там в первом варианте ошибка. Нужно

Pascal

D:=1;

Вместо

Pascal

D:=0;

Вернуться к обсуждению:
Найти сумму цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

13.12.2015, 17:03

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

Определить, что сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1
Задание: Для каждой задачи составить программу, выводящую значение TRUE, если указанное...

Определить сумму двух первых цифр заданного четырехзначного числа
Дано целое положительное четырехзначное число. Напишите программу, позволяющую определить сумму...

Найти количество и сумму цифр, сумму первой и последней цифр заданного числа z
Дано число z. Найти: количество цыфр в нём, сумму цыфр числа z, первую та последнюю цыфры числа z....

	13.12.2015, 17:03

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

13.12.2015, 17:03

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

Циклы. Найти сумму цифр произвольного четырехзначного числа
Напишите программу нахождения суммы цифр произвольного четырехзначного числа. Вывод результата...

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

Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр
Здравствуйте. не могу решить некоторые задачи. можете помочь? II.Логические выражения Составить...

Выяснить, равна сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Вывести на экран 1 или 0 в зависимости от того, равна сумма двух первых цифр заданного...

Наверх