Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Написать программу, которая определяет, попадает ли точка с заданными координатами в область Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат работы программы вывести в виде текстового сообщения. https://www.cyberforum.ru/ pascal/ thread1272724.html	Pascal Вычислить значение функции, заданной в виде графика Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика
Pascal Написать программу, которая по введенному значению аргумента вычисляет значение функции https://www.cyberforum.ru/ pascal/ thread1272719.html Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.	Pascal Задача "карточки" Сортировка массива. Паскаль! https://www.cyberforum.ru/ pascal/ thread1272618.html
Напишите программу, которая подскажет радистке Кэт, поместится ли рация в чемодане Pascal Помогите пожалуйста!!очень надо	Pascal Уравнение прямых для определения входит данная точка в поле или нет? Уравнение прямых для провекри вхождения точки в область. Как выяснить входят ли точки с различными координатами в область? И какими уравнениями задается данная фигура? P,Q,R-заданные числа, как это реализовать в паскале? https://www.cyberforum.ru/ pascal/ thread1272542.html
Pascal Вычислить значение функции Как расписать функцию? На языке паскаль. \sum_{i=0}^{\infty}(-1)^i\ \frac{x^{i-2}}{x+i!}\,,\ \ e=10^{-6} https://www.cyberforum.ru/ pascal/ thread1272534.html	Pascal Составить программу, которая выводит произведение трех наименьших из 4 чисел Здравствуйте, я написала программу, но затрудняюсь нарисовать правильную блок-схему к ней, тк путаюсь в алгоритме сортировки. Заранее спасибо за помощь! Задача была: Составить программу, которая выводит произведение трех наименьших из 4 чисел. Я не разобралась, как это сделать проще, чем через сортировку массива, поэтому вот: var item:array of Integer; i,j,x: Integer; begin
Pascal Определить номер N числа Фибоначчи https://www.cyberforum.ru/ pascal/ thread1272469.html Определить номер N числа Фибоначчи, при котором сумма N первых чисел Фибоначчи превышает заданное число M.	Pascal Построить на экране график функции, и графически найти все возможные решения, не применяя численных методов Помогите пожалуйста Задав конкретную функцию F(x), построить на символьном экране дисплея ее график и графически найти все возможные решения, не применяя никаких численных методов. При реализации учесть, что вид функции и интервал могут быть любыми (в конкретных вариантах задан тестовый интервал и значение корня на этом интервале - для проверки правильности построения графика данной функции). ... https://www.cyberforum.ru/ pascal/ thread1272434.html
Вычислить произведение элементов нечётных столбцов матрицы Pascal Дан двумерный массивconst n=4; m=4; m:array;Вычислить произведение элементов нечётных столбцов массива(то есть первого и третьего). Получается нужно сначала определять нечётный ли номер столбца, если да, то все его элементы перемножить и вынести результат. Не понимаю, как осуществить эти действия и по-этому прошу помощи.	Pascal Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal https://www.cyberforum.ru/ pascal/ thread1272257.html Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и Turbo/Borland Pascal

Joy

2386 / 1298 / 1492

Регистрация: 29.08.2014

Сообщений: 4,661

11.10.2014, 08:17

Найти все пятизначные числа, которые при делении на A дают в остатке B, а при делении на C дают в остатке D - Pascal - Ответ 6706761

11.10.2014, 08:17. Показов 35547. Ответов 7

Метки (Все метки)

Ответ

Pascal

var
  a,b,c,d:integer;
  i,j:longint;
begin
  repeat
    readln(a,b);
    readln(c,d);
    j:=10000;
    if (a=0) or (c=0) then writeln('a,c must be greater than zero!');
  until (a>0) and (c>0);
  for i:=10000 to 100000 do
    if (i mod a=b) and (i mod c=d) then write(i,'  ') else inc(j);
  if j>100000 then writeln('-1');
  readln;
end.

Вернуться к обсуждению:
Найти все пятизначные числа, которые при делении на A дают в остатке B, а при делении на C дают в остатке D Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.10.2014, 08:17

Готовые ответы и решения:

Найти элементы массива, которые при делении на 7 дают в остатке 1, 2 или 5
Здравствуйте! Пожалуйста помогите мне написать код к заданию: Дан одномерный массив А целых чисел...

Определить количество чисел, которые при делении на 7 дают в остатке 3
Даны натуральные числа a1, a2, a3, a4. а) верно ли, что одно число положительно б) Определить...

Составить программу поиска трехзначных чисел которые при делении на 47 дают в остатке 43
Составить программу поиска трехзначных чисел которые при делении на 47 дают в остатке 43!! ...

Переписать в файл G те элементы файла F, которые при делении на 5 дают в остатке 1 или 4
Создать файл F из целых чисел. Переписать в файл G те элементы файла F, которые при делении на 5...

	11.10.2014, 08:17

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.10.2014, 08:17

Помогаю со студенческими работами здесь

Поиск четырехзначных чисел, которые при делении на 133 дают в остатке 125, а при делении на 134 - 111
2.Составить программу поиска четырехзначных чисел которые при делении на 133 дают в остатке 125.а...

Найти все числа, которые при делении на a дают остаток b, а при делении на b дают в остатке a
Ввести два натуральных числа a и b, на промежутке от 1 до N найти все числа, которые при делении на...

Найти трехзначные числа, которые при делении на 47 дают в остатке 43
Составить программу поиска трехзначных чисел, которые при делении на 47 дают в остатке 43, а при...

Вывести на экран натуральные числа от 1 до 100, которые при делении на 6 дают в остатке 4, и их количество
70. Вывести на экран натуральные числа от 1 до 100, которые при делении на 6 дают в остатке 4, и их...

Наверх