|
|
Другие темы раздела | |
PascalABC.NET Напечатать в алфавитном порядке все глухие согласные, входящие в каждое чётное слово текста Дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные, которые входят в каждое чётное слово. https://www.cyberforum.ru/ pascalabc-net/ thread1589950.html |
PascalABC.NET Множества: напечатать все строчные русские гласные буквы, входящме в текст Дан текст за которым следует точка.В Алфавитном порядке напечатать все строчные русские гласные буквы (а,е,и,о,у,ы,э,ю,я) входящие в этот текст. |
PascalABC.NET Убрать из заданного слова все нечетные буквы
https://www.cyberforum.ru/ pascalabc-net/ thread1589943.html Дано слово *перевертышем* .Убрать из него все нечетные буквы и вывести. |
PascalABC.NET Работа с файлами Напишите, пожалуйста, программу для следующего задания: Файл содержит сведения о винном погребке: наименование вина, объем, год изготовления и стоимость. Выведите сведения о винах, год изготовления которых менее задаваемой величины, и определите их среднюю стоимость. Среди всех вин найдите сведения о самом старом вине. https://www.cyberforum.ru/ pascalabc-net/ thread1589932.html |
Подпрограммы: определить, какой из треугольников (заданных вершинами) имеет большую площадь PascalABC.NET даны координаты вершин двох треугольников. Определить, какой из них имеет большую площадь |
PascalABC.NET Движение шарика по траектории
https://www.cyberforum.ru/ pascalabc-net/ thread1589805.html Помогите пожалуйста. Нужно задать движение шара по траектории. Есть вариант программы, но он не рабочий:( uses crt,graphabc; var x,y: integer; const a1=10;a2=600;b1=10;b2=436;r=20; begin x:=a2-r; |
PascalABC.NET Как сделать, чтобы в третий стек "переливались" только нечётные элементы, и при это чётные оставались в первом Как сделать, чтобы в третий стек "переливались" только нечётные элементы, и при это чётные оставались в первом и втором? И ещё, возможно ли в 1 коде организовать ввод 1 и 2 стеков с файла, как во 2 коде? 1 код: type TData = Integer; TPElem = ^TElem; https://www.cyberforum.ru/ pascalabc-net/ thread1589696.html |
PascalABC.NET Что выведет программа Помогите пожалуйста ! program print (output); type string=packed array of char; var i:integer; t:string; procedure P(var s:string); begin i:=1; while s<'9' do begin s:=succ(s); i:=i+1 end end; begin i:=1; t:='12345'; P(t); writeln(t) end. |
PascalABC.NET Напечатать номера тех строк введенной матрицы, которые состоят из всех различных элементов
https://www.cyberforum.ru/ pascalabc-net/ thread1589589.html С клавиатуры ввести прямоугольную матрицу целых беззнаковых чисел (максимальная размерность матрицы - 10х25 элементов). Напечатать номера тех строк введенной матрицы, состоящие из всех различных элементов (или вывести сообщение об отсутствии таких строк). |
PascalABC.NET Какое наименьшее число членов последовательности нужно вычеркнуть, чтобы она оказалась пилообразной? Числовая последовательность называется пилообразной, если каждый ее член (кроме первого и последнего) либо больше обоих соседей, либо меньше обоих соседей. Например, последовательность 1,2,1,3,2 является пилообразной, а 1, 2, 3, 1, 2 - нет, поскольку 1<2<3. Любая последовательность из одного элемент а является пилообразной. Дана последовательность. Требуется определить, какое наименьшее... https://www.cyberforum.ru/ pascalabc-net/ thread1589528.html |
PascalABC.NET Составить блок-схему для программы Нужна блок-схема для вот этой программы Program wtf; Var a,b,k,i,p:integer; Begin Writeln('Ввести k'); Read(k); a:=1; b:=1; For i:=1 to k do IF i mod 2=0 then |
PascalABC.NET Алгоритм Краскала Здравствуйте, не могу разобраться в работе данного алгоритма(Краскала). Имеем код program minim_tree_kraskal; const maxn=100; var p:arrayof integer; Mark:arrayof integer; k,i,t:integer; m,n:integer;{m - rebra;n - vershini } procedure Change_Mark(l,m:integer); var i,t:integer; https://www.cyberforum.ru/ pascalabc-net/ thread1589468.html |
Супер-модератор
|
|
23.11.2015, 11:21 | 0 |
Найти два числа если известна сумма и частное от деления одного на другое - PascalABC.NET - Ответ 838162023.11.2015, 11:21. Показов 2883. Ответов 2
Метки (Все метки)
Ответ
Значит,
A = X - B B * Y = A, следовательно B * Y = X - B, откуда B * (Y+1) = X и B = X / (Y+1) Все просто. 2 строки кода. Решение - для деления без остатка, с остатком - только перебор. Вернуться к обсуждению: Найти два числа если известна сумма и частное от деления одного на другое PascalABC.NET
0
|
23.11.2015, 11:21 | |
Готовые ответы и решения:
2
Найти частное и остаток от деления одного большого числа на другое найти числа если известна сумма и произведение Найти остаток от деления одного целого числа на другое Введите два числа и найдите частное от деления нацело первого числа на второе и остаток от деления нацело, используя только операцию вычитания |
23.11.2015, 11:21 | |
23.11.2015, 11:21 | |
Помогаю со студенческими работами здесь
0
Ввести два числа, найти частное от деления первого на второе, и вывести его с тремя знаками после запятой Даны значения переменных A и B. Найти частное от деления А на В и частное от деления В на А. Найти остаток от деления А Для двух целых чисел найти остаток и частное от целочисленного деления, частное от вещественного деления Даны два целых числа A и B. Получить их частное, остаток от целочисленного деления A на B, а также значение степени числа AB |