Форум программистов, компьютерный форум, киберфорум
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...
Pascal ABC Найти определённый интеграл функции https://www.cyberforum.ru/ pascalabc/ thread1639911.html
Добрвй день форумчане! помогите пожалуйста с лабоарторной работой по компьютерному моделированию, Требуется найти определѐнный интеграл функции f(х) либо методом прямоугольников (правых, левых...
Сколькими способами можно разложить по ящикам N одинаковых шаров? Pascal ABC
Здравствуйте. Мне нужно решить задачку по комбинаторике, сколько не мучался ничего не выходит. Лазил на всяких сайтах, форумах, увы не могу ничего понять((( Помогите пожалуйста. Есть k...
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...
Pascal ABC Список групп содержит название группы, количество студентов в каждой группе. Расчитать количество двоек Добрый вечер. Прохожу практику по паскалю, не могу справиться с одной задачей. Условия задачи таковы: Список групп содержит название группы, количество студентов в каждой группе, количество 5,4,3.... 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...
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 и т.д,... 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. Допустимы...
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
17.01.2016, 09:45 0

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

17.01.2016, 09:45. Показов 5783. Ответов 2
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
program z1640023;
 var a,s:integer;
begin
 writeln('Введите s=');
 readln(s);
 for a:=1 to 20 do
  if s mod a=0
   then writeln('a=',a,' b=',s div a);
end.
Добавлено через 8 минут
Не успел сохранить, правильный вариант:

Pascal
1
2
3
4
5
6
7
8
9
program z1640023;
 var a,s:integer;
begin
 writeln('Введите s=');
 readln(s);
 for a:=1 to 20 do
  if (s mod a=0) and (s div a>0) and (s div a<21)
   then writeln('a=',a,' b=',s div a);
end.
Добавлено через 10 часов 8 минут

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

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

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

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

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

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

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

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

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

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

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