Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Найти все натуральные двухзначные числа, которые делятся на n или содержат цифру n https://www.cyberforum.ru/ pascalabc/ thread1640019.html
Найти все натуральные двухзначные числа, которые делятся на n или содержат цифру n. Где n=2. Так же представить это на языке С#
Pascal ABC Отразить зеркально элементы массива относительно центра
Дан массив размером n на n, n - нечётное число. Отразить зеркально элементы массива относительно центра.
Pascal ABC Нахождение скалярного произведения матрицы и вектора https://www.cyberforum.ru/ pascalabc/ thread1639919.html
Дана матрица А(nxn) и вектор х = (х1, х2, ...,х n). Написать программу нахождения скалярного произведения (х * Ах) program matrix; var n,i,j:integer; a:array of integer; r,x:array of integer; begin writeln('vvedite n'); readln(n); writeln('A = ');
Pascal ABC Найти определённый интеграл функции https://www.cyberforum.ru/ pascalabc/ thread1639911.html
Добрвй день форумчане! помогите пожалуйста с лабоарторной работой по компьютерному моделированию, Требуется найти определѐнный интеграл функции f(х) либо методом прямоугольников (правых, левых или средних), либо методом трапеций, либо методом парабол. сама функция выглюдит так: Набор данных 5. Функции и их дискретные значения. 1) у = exp(x) Пределы интегрирования _x________ у...
Сколькими способами можно разложить по ящикам N одинаковых шаров? Pascal ABC
Здравствуйте. Мне нужно решить задачку по комбинаторике, сколько не мучался ничего не выходит. Лазил на всяких сайтах, форумах, увы не могу ничего понять((( Помогите пожалуйста. Есть k пронумерованных ящиков. Сколькими способами можно разложить по этим ящикам N одинаковых шаров. Допускаются пустые ящики.
Pascal ABC Используя функции и или процедуры, составить программы для расчёта указанных величин https://www.cyberforum.ru/ pascalabc/ thread1639685.html
Используя функции и или процедуры, составить программы для расчёта указанных величин z_1=1+f\left(x_1 \right),\qquad z_2=\ln\begin{vmatrix}f\left(x_2 \right)+\varphi \left(x_3,\,y \right)\end{vmatrix},\qquad z_3=\varphi \left(0.5,\,2.84 \right), где f(x)=x\cdot \left(e^{-x^2}+\operatorname{tg}x \right),\qquad \varphi \left(x,\,y \right)=\sin ^3\left(x-\frac{y^2}x \right)
Pascal ABC Список групп содержит название группы, количество студентов в каждой группе. Расчитать количество двоек Добрый вечер. Прохожу практику по паскалю, не могу справиться с одной задачей. Условия задачи таковы: Список групп содержит название группы, количество студентов в каждой группе, количество 5,4,3. Предусмотреть правильность ввода. Расчитать количество двоек, процент неуспевающих в каждой группе (записать в виде x%). Поиск по группе. Необходимо написать программу на Pascal. Я не прошу писать... https://www.cyberforum.ru/ pascalabc/ thread1639628.html Pascal ABC Нет выхода из цикла While
Числа Х и Y вводятся в цикле While. Выход из цикла - ввод числа 999. Без условного оператора if выхода нет из цикла. Почему? var X, Y, XY : Real; begin While ((X<>999) or (Y<>999)) do begin Read(X, Y); { if ((X = 999) or (Y = 999) ) then break else begin}
Pascal ABC Строки максимального и минимального элемента матрицы не меняются помогите исправить программу program lab7; const nmax=100; var a: array of integer; i,j,m,n,min,max,i_max,j_max,i_min,j_min,tmp: integer; begin https://www.cyberforum.ru/ pascalabc/ thread1639586.html Pascal ABC Подсчет суммы чисел через цикл Приветствую всех, помогите пожалуйста с задачей, уже часа два думаю над ней. Пользователь вводит 2 числа Х и У. После чего программа высчитывает сумму элементов по формуле S=X+X/2+X/4+X/8 и т.д, до того момента, пока сумма этих элементов не станет меньше У. То есть условие такое, выполнять сложение пока S>Y. Заранее спасибо https://www.cyberforum.ru/ pascalabc/ thread1639412.html
Как самому задавать диапазон максимума и минимума? Pascal ABC
Как самому задавать диапазон максимума и минимума? uses crt; const nmax=10; var a:array of integer; n,i,j,imn,imx,x:byte; begin clrscr; randomize; repeat write('Размер массива n=');
Pascal ABC Расставить между цифрами знаки арифметических операций и скобки https://www.cyberforum.ru/ pascalabc/ thread1639227.html
Даны пять пятерок (5 5 5 5 5), нужно расставить между цифрами знаки арифметических операций ('+', '-', '/', '*') и скобки таким образом, чтобы значение полученного выражения было равно 20. Допустимы лишние скобки, не нарушающие корректности выражения. Каждое арифметическое действие можно использовать один раз
103 / 90 / 75
Регистрация: 04.11.2011
Сообщений: 1,820
16.01.2016, 19:37 0

Найти все равновеликие прямоугольники, стороны которых выражены целыми числами - Pascal ABC - Ответ 8628565

16.01.2016, 19:37. Показов 6124. Ответов 2
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
var
a,b,s:integer;
writeln('vvedite s');
readln(s);
for a=1 to 20 do
for b=1 to 20 do
if a*b=s then writeln('a=',a,' b=',b);
readln;
end.


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

Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами
Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a и b, а...

Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a и b, а площадь
Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a и b, а...

Найти все равновеликие прямоугольники, стороны которых выражены целыми числами
Помогите написать программу на С++. Необходимо найти все равновеликие прямоугольники, стороны...

Найти все равновеликие прямоугольные треугольники, катеты которых выражены целыми числами a и b, а площадь равна s
Не имею понятия о том как это делать

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

Найти все прямоугольники, площадь которых равна q и стороны выражены натуральными числами.
Исходное данное – натуральное число q, выражающее площадь. Найти все прямоугольники, площадь...

Найти все прямоугольники, площадь которых равна q и стороны выражены натуральными числами
Помогите решить задачу в C#, visual studio 2017 Исходное данное – натуральное число q, выражающее...

Нахождение всех прямоугольников, площадь которых равна q и стороны выражены натуральными числами
помогите решить задачу) Исходное данное - натуральное число q, выражающее площадь. Напишите...

Определить на сколько квадратов, стороны которых выражены натуральными числами, можно разрезать данный прямоугольник
Стороны прямоугольника заданы натуральными числами М и N. Составить программу, которая будет...

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