Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Найти сумму чисел применив вложенные циклы https://www.cyberforum.ru/ pascal/ thread189541.html
Pascal ввод вывод данных
помогите доработать программу var t,t1,t2: text ; a,b,c: integer ; begin assign(t , 'a.txt'); reset(t); while not eof(t) do
Pascal Ветвящиеся алгоритмы (условный оператор) https://www.cyberforum.ru/ pascal/ thread189539.html
Написать программу, которая по заданным четырем значениям находит max(min(a,b),min(c,d)). Помогите!!!!!!! Завтра сдавать.....
Pascal Ветвящиеся алгоритмы (условный оператор) https://www.cyberforum.ru/ pascal/ thread189535.html
Написать программу которая проверяет деталь на брак. Бракованной считается деталь, размер которой отличается от эталонного значения на величину e.
Вычислить количество букв латинского алфавита, входящих в последовательность Pascal
Написать программу на языке Pascal: дана последовательность, состоящая из n символов. Вычислить количество букв латинского алфавита, входящих в последовательность.
Pascal Реализовать в виде модуля Реализовать в виде модуля набор подпрограмм для выпол¬нения следующих операций над длинными числами: а) сложения; б) вычитания; в) умножения; г) нахождения частного и остатка от деления одного числа на другое; д) функций, реализующих операции отношения (равно, не равно, больше или равно, меньше или равно, больше, меньше). Длинное число представить следующим типом: ... https://www.cyberforum.ru/ pascal/ thread189526.html
Pascal Строковые переменные https://www.cyberforum.ru/ pascal/ thread189525.html
Срочно зделайте прогу кто небуть: Дан текст. Найти самую длинную группу цифр, начинающуюся с цифры "9". и блок схему если можно тож. , Препод достал просто.
Pascal даны два предложения.найти самое короткое из слов первого предложения, которого нет во втором предложении
парни помогите пожалуйста с программой горю вообще((((( даны два предложения.найти самое короткое из слов первого предложения, которого нет во втором предложении.
Pascal Операции над длинными числами Здравствуйте помогите пожалуйстя вот с такой задачей Реализовать в виде модуля набор подпрограмм для выпол¬нения следующих операций над длинными числами: а) сложения; б) вычитания; в) умножения; г) нахождения частного и остатка от деления одного числа на другое; д) функций, реализующих операции отношения (равно, не равно, больше или равно, меньше или равно, больше, меньше). https://www.cyberforum.ru/ pascal/ thread189522.html Pascal Процедура game для игры https://www.cyberforum.ru/ pascal/ thread189519.html
Здравствуйте! прошу помочь мне вот с такой проблемой. Я пишу такую игру: По лабиринту, заданному матрицей, бегает кошка. Она собирает призы, и есть один суперприз. Там же по лабиринту бегают 4 мыши и 2 крысы. Мыши наносят урон кошке в 50%, если кошка не сможет убить мышь(пробел). Тогда мышь исчезает. Крысу кошка убить не может. Кошка должна добраться до конца лабиринта(призы собирать...
Pascal Начало изучения двумерного массива
Надо составить программу ввода численных значений двумерного массива. Вот что сказал делать учитель: program dina; const n=3; var a:array of integer i,j:integer; begin for i:=1 to n do for j:=1 to n do a:=random(10);
Pascal не могу доработать программу https://www.cyberforum.ru/ pascal/ thread189497.html
Не получается доработать программу,выводящую на экран те элементы одномерного массива,которые не являются ни минимальными,ни максимальными элементами. Program neekstremum; var i,n,max,min:integer; a:array of integer; begin writeln('vvedite n ot 1 do 20'); readln(n); writeln('vvedite a'); for i:=1 to n do readln(a) max:=a;
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
11.11.2010, 16:46 0

Найти произведение цифр заданного четырехзначного числа - Pascal - Ответ 1102059

11.11.2010, 16:46. Показов 3268. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
p:=(a div 1000)*(a div 100 mod 10)*(a div 10 mod 10)*(a mod 10);
или в цикле
Pascal
1
2
3
4
5
6
p:=1;
while a>0 do
 begin
  p:=p*(a mod 10);
  a:=a div 10;
 end;


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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2010, 16:46
Готовые ответы и решения:

Найти произведение цифр заданного четырехзначного числа
Задача - Найти произведение цифр заданного четырехзначного числа Как представить в схеме данное...

Найти произведение цифр заданного четырехзначного числа
Экзаменационный билет № 1 2. Составить программу для вычисления суммы: 1!+2!+3!+…+n! (n<=15)...

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

найти сумму цифр заданного четырехзначного числа
еще три задачки 1) Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент...

1
11.11.2010, 16:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2010, 16:46
Помогаю со студенческими работами здесь

Найти произведение цифр заданного двузначного числа.
Найти произведение цифр заданного двузначного числа.

Найти произведение цифр заданного трехзначного числа
Найти произведение цифр заданного трехзначного числа.

Найти произведение цифр заданного двузначного числа.
Найти произведение цифр заданного двузначного числа.

Определите число m. полученное выписыванием в обратном порядке цифр заданного четырёхзначного числа N
Pascal, мне нужно блок схемой , заранее спасибо!

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru