Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal составить программу расчета значений плиз помогите решить задачу №1 составить программу расчета значений x=(2\((kvadrat a)+2)+b)\((koren iz b)+ ((a+b)\2)) y=(|a|+2sinb)\5,5a №2 с начала суток прошло n секунд оприделить : а) скоко полных часов прошло с начала суток б) скоко полных минут прошло с начала очередного часа в) скоко полных секунд прошло с начала очередной минуты №3 расчитать значения y при значимом x y= sin... https://www.cyberforum.ru/ pascal/ thread19516.html Pascal Упорядочить элементы массива по возрастанию
Так, ребята)) всем привет) есть тут мини легкие задачи. Нужны решения... они легкие, очень, я понимаю... вот на Паскале нужно. Поможете сделать?)) всем спасибо) Найти максимальный элемент массива A и записать значение этого элемента в переменную v. Например, если А={0, -2, 7, 4, -1}, то v=7. Входные данные. Целочисленный массив A. Выходные данные. Целое число v. Найти минимальный...
Pascal Матрица. Min и Max. Обмен столбиками. Здраствуйте! Помогите, пожалуйста, доделать задачу: Поменять местами столбики в которых находится min и max элемент. Минимум и Максимум удаёться найти, но когда идёт черёд обмена - меняются столбики со строками - и самое печально, что не могу поменять почему:( program max_mtrx; uses crt; const n=3; var a:array of integer; i,j,x,min,column_min:integer; https://www.cyberforum.ru/ pascal/ thread19496.html Pascal Разработать программу для обработки данных типизированного файла https://www.cyberforum.ru/ pascal/ thread19491.html
Ребят полная ж*па, заболел и пропустил лекции по файлам в Паскале, учебника нет, в инете сплошная фигня, а работы надо завтра здать, я конечно разберусь с ними, но вот до завтра здать ни как не с могу (они ещё просят, что бы все проги делал через модуль и обзательно менюшку)... Я же знаю, что вам это расплюнуть, помогите пожалуйся: ...
Pascal По порядковому номеру ЭВМ выдать фамилию и инициалы работающего за ней человека.
Надо решить такую зада4ку... Составить программу для выполнения указанного ниже задания, используя оператор множественного ветвления. По порядковому номеру ЭВМ выдать фамилию и инициалы работающего за ней человека. Спасите пожалуйста:'(:'
Pascal Коэффициенты системы линейных уравнений заданы в виде прямоугольной матрицы..... https://www.cyberforum.ru/ pascal/ thread19485.html
Коэффициенты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований провести систему к Треугольному виду(оформить в виде процедуры). Найти количество строк, среднее арифметическое элементов которых меньше заданной величины(Оформить в виде функции). Помогите Пожалуйста!!!:'(
Pascal Пользуясь рекуррентной формулой, найти сумму бесконечного ряда https://www.cyberforum.ru/ pascal/ thread19483.html
Пользуясь рекуррентной формулой, найти сумму S бесконечного ряда с точностью до E. S=4 - 8/3 +16/9-32/27+ ...+4*(-2/3)в степени (n-1)+ ... . Она на самом деле легкая очень,сдесь видно что каждый последущий член равен предидущему умноженному на -2/3,только как в цикле записать я не понимаю,помоги пожалуйста =)
анализ и преобразование текста строки Pascal
ввести строку, состоящую из нескольких предложений. построить результирующую строку, содержащую только предложения, состоящие из заданного количества слов. помогите!!! Добавлено через 19 часов 39 минут 2 секунды ну помогите кто нибууудь!!!!
Pascal Сформировать массив, состоящий из символов с четными порядковыми номерами, начиная с символа К еще одна на ту же тему: *Сформировать массив, состоящий из символов с четными порядковыми номерами, начиная с символа К. Количество элементов массива вводит пользователь. Вывести полученный массив на экран Заранее благодарю всех, кто напишет! :) https://www.cyberforum.ru/ pascal/ thread19480.html Pascal Блок - схема https://www.cyberforum.ru/ pascal/ thread19479.html
Помогите пожалуйста составить блок схему к этой задаче=(..очень нужно( Program xxx; uses crt; var a: array of integer; max,k,i,n: integer; begin
Pascal Помогите написать три простых матрицы.
Помогите пожалуйста написать три несложных матрицы по схемам: http://pic.ipicture.ru/uploads/081223/zPUdOrt562.jpg http://pic.ipicture.ru/uploads/081223/DRR4LGmgUo.jpg http://pic.ipicture.ru/uploads/081223/n5Q3pEIpgM.jpg
Pascal Помгите Pascal короче задача проста до безобразия... Вводим количество предприятий.... (P) (F) И для каждого нужно ввести фонд оплаты труда (общая зарплата всех сотрудников) (R) И вводится количество сотрудников Далее программа должна посчитать и выдать среднюю зарплату S=F/R Каждого предприятия.... https://www.cyberforum.ru/ pascal/ thread19474.html
257 / 173 / 27
Регистрация: 17.10.2008
Сообщений: 770
27.10.2008, 23:28 0

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр - Pascal - Ответ 65497

27.10.2008, 23:28. Показов 50281. Ответов 6
Метки (Все метки)

Ответ

Машуня, моно вот так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
program Project2;
 
{$APPTYPE CONSOLE}
var s:integer;
 
begin
  Writeln('vvedi chislo s:');
  Readln(s);
  Writeln('chislo desjatkov=',s div 10);
  Writeln('chislo edinic=',s mod 10);
  Writeln('proizvedenie=',(s div 10)*(s mod 10));
ReadLn;
end.
если на паскале пишешь, а не в делфаке то удали строчку {$APPTYPE CONSOLE}
и всё. Удачки в изучении.
s div 10 -число делим на 10 и получаем число десятков (пример:30/10=3)
s mod 10 -число делим на 10 и получаем остаток,число единиц (пример:34/10=4)

Вернуться к обсуждению:
Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2008, 23:28
Готовые ответы и решения:

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

Дано трехзначное число, найти произведение его цифр.
№1 Дано трехзначное число, найти произведение его цифр. №2 Дано натуральное число n (n<=9999),...

Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево
помогите с паскалем. Дано натуральное число. Найти число, получаемое при прочтении его цифр...

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

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

Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из...

Дано трехзначное число определить количество сотен, десятков и единиц
Дано трехзначное число определить кол-во сотен,десятков и единиц.Помогите решить!

дано двухзначное число. Опредилить больше ли числа "n" сумма его цифр.
дано двухзначное число. Опредилить больше ли числа "n" сумма его цифр. помогите...

Дано натуральное число х. Верно ли, что в его записи одинаковое число четных и нечетных цифр?
Дано натуральное число х. Верно ли, что в его записи одинаковое число четных и нечетных цифр?...

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