Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal подскажите как вывести индекс наименьшего по модулю элемента в массиве вот фрагмент программы var e:array of integer; i,min,count,ind: integer; begin for i:=1 to 10 do begin randomize; e:=-100+random(201); https://www.cyberforum.ru/ turbo-pascal/ thread227300.html	Вывести на экран содержимого файла на который укажет пользователь Turbo Pascal 1. Создать фаил и ввести его с клавиатуры несколько строк пока пользователь не откажется от него, фаил запрасить у пользователя. 2. Вывести на экран содержимого файла на который укажет пользователь. Добавлено через 1 час 19 минут ну что может поможите?
Turbo Pascal Выровнять текст по центру как написать имя посередине экрана?? :( так то я примерно знаю у меня по центру не получается( Добавлено через 2 минуты все решил проблему)) можно удалять тему) Monah_45rus, форум - это не раздел личной переписки. Форум имеет общественное значение. Его много людей читает. Если решил задачу - опубликуй решение. Кто-то может тоже столкнётся с такой задачей. https://www.cyberforum.ru/ turbo-pascal/ thread227286.html	Turbo Pascal Что такое классификация действий https://www.cyberforum.ru/ turbo-pascal/ thread227283.html Подскажите пожалуйста: Мне препод задал такой вопрос: Классификация действий в Паскале!!! что это где это взять???? помогите кто чем может!!!!
Turbo Pascal Представить любое чётное число большее двух в виде суммы двух простых чисел Конъектура Гольдбаха Существют много математических высказываний, истинность которых подтверждается повседневным опытом, но еще не доказано наукой. Одним из таких высказываний является знаменитая Конъектура2 (гипотезa) Гольдбаха: “Каждое нечётное число большее 5 можно представить в виде суммы трёх простых чисел”. Заинтересовавшись этой задачей, знаменитый математик Леонард Эйлер...	Turbo Pascal Вывести десятичную запись числа, минимального среди всех чисел, чьи записи можно составить из всех цифр Напишите программу, которой на стандартный вход подается последовательность символов. Длина последовательности заранее не известна. Признаком конца последовательности считается точка. Программа должна вывести десятичную запись числа, минимального среди всех чисел, чьи записи можно составить из всех цифр, встретившихся во входной последовательности. Если цифр в последовательности нет,... https://www.cyberforum.ru/ turbo-pascal/ thread227246.html
Turbo Pascal Вывести значения всех элементов с нечётными индексами https://www.cyberforum.ru/ turbo-pascal/ thread227245.html Для массива constm=const1; n=const2; {const1<const2} var mas : array of integer; напишите фрагмент программы, который выводит на экран значения всех элементов с нечётными индексами.	Блок-программа Turbo Pascal Написать блок-программу для нахождения количества всех элементов целочисленного массива, которые не являются положительными двузначными числами.
Turbo Pascal Треугольник со сторонами а, b, с является равносторонним https://www.cyberforum.ru/ turbo-pascal/ thread227231.html Треугольник со сторонами а, b, с является равносторонним.	Turbo Pascal Найти произведение элементов массива, меньших 0 2. Найти произведение всех элементов массива целых чисел, меньших 0. Размерность массива – 10. Заполнение массива осуществить с клавиатуры. https://www.cyberforum.ru/ turbo-pascal/ thread227230.html
Turbo Pascal Дан массив E[1:n].Поменять местами его первый чётный и последний нечётный элементы Дан массив E.Поменять местами его первый чётный и последний нечётный элементы	*Turbo Pascal Найти Cosx=1-x^2/2!+x^4/4!…+〖(-1)〗^kx^2k/(2k)!** https://www.cyberforum.ru/ turbo-pascal/ thread227221.html Написать программу, вычисляющую Cosx=1-x^2/2!+x^4/4!…+〖(-1)〗^k*x^2k/(2k)!

andrei63

141 / 135 / 69

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

Сообщений: 343

11.01.2011, 19:45

Найти сумму цифр трехзначного числа - Turbo Pascal - Ответ 1278684

11.01.2011, 19:45. Показов 100427. Ответов 15

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

Сообщение было отмечено mik-a-el как решение

Решение

Pascal

var
b:real;
n:integer;
begin
writeln('vvedite chislo ');
readln(N);
b:=(N div 100)+((N div 10) mod 10)+(N mod 10);
writeln('summa 4ucel ravna: ',b);
writeln;
readln;
end.

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

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.01.2011, 19:45

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

Найти сумму цифр трехзначного числа
дано 3 значное число найти сумму его цыфр

Найти сумму цифр трехзначного числа
Дано тризначне число. Знайти суму його цифр.

Если сумма цифр введенного трехзначного числа N четная, то увеличить число вдвое, иначе найти сумму N+1N
Если сумма цифр введенного трехзначного числа N четная, то увеличить число вдвое, иначе найти сумму...

Вычислить сумму цифр трехзначного числа
Вычислить сумму 3х значного натурального числа!

	11.01.2011, 19:45

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.01.2011, 19:45

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

Определить и вывести сумму цифр трехзначного целого числа
Используя арифметические операции, определить и вывести сумму цифр трехзначного целого числа k...

Целой переменной s присвоить сумму цифр трехзначного целого числа K
Целой переменной s присвоить сумму цифр трехзначного целого числа K.

Найти наибольшее значение отношения трехзначного числа к сумме его цифр.
Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его...

Найти сумму цифр заданного четырёхзначного числа N превосходит произведение цифр этого же числа на 1
Помогите решить срочно, буду очень признателен: 1.сумма цифр заданного четырёхзначного числа N...

Наверх