Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Массив С состоит из элементов исходных массивов, первая цифра которых меньше последней, а массив D – первая ц Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из m элементов), заполненных случайным образом числами из промежутка . Сформировать из элементов этих... https://www.cyberforum.ru/ pascalabc/ thread1567058.html Алгоритм Дейкстры Pascal ABC
Пожалуйста, можете указать где у меня ошибка(лучше всего укажите как её исправить) var f,n,s,i,j,min,p,nmin : longint; graph:array of longint; flag,prev,d : array of longint;...
Pascal ABC Можно ли так писать? https://www.cyberforum.ru/ pascalabc/ thread1566937.html
У меня возник вопрос, можно ли так писать? case q and q1 of 0 and 1: k:=k+4; 1 and 1: k:=k+1; 1 and 2: k:=k+9; end;
Pascal ABC Pascal ABC Где ошибка? https://www.cyberforum.ru/ pascalabc/ thread1566803.html
function Min4(a,b,c,d:real):real; var min1,min2:real; begin if a<b then min1:=a else min1:=b; if c<d then min2:=c else min2:=d; if min1<min2 then Min4:=min1 else Min4:=min2; end; var...
Дан двумерный массив А. Расставить его столбцы в следующем порядке:первый,последний,второй,предпоследний и т.д Pascal ABC
Дан двумерный массив А. Расставить его столбцы в следующем порядке: первый,последний,второй,предпоследний и т.д Желательно с процедурами Init, print,insert
Pascal ABC Дан двумерный массив А. Расставить его столбцы в следующем порядке: последний, предпоследний,., второй,первый Дан двумерный массив А. Расставить его столбцы в следующем порядке: последний, предпоследний,.., второй,первый Желательно с процедурами Init, print,insert https://www.cyberforum.ru/ pascalabc/ thread1566468.html
Pascal ABC Ошибка "Несколько подпрограмм могут быть вызваны" Делал лабораторную, всё как обычно, но вдруг встретился с ранее не известной мне ошибкой в PascalABC // (ba)!x^2+2*dc)!x+(mk)!=0 // z 6-6 w 11-11 v 12-12 program lab6zachas; uses crt;... https://www.cyberforum.ru/ pascalabc/ thread1566410.html Pascal ABC Вычисление элементов вектора X
Задание из этой темы: https://www.cyberforum.ru/pascalabc/thread1564122.html Var x:array of real; c: array of real; i,n:integer; Begin write('Введите чиcло элементов массива '); readln(n);...
Pascal ABC Составить программу вывода элементов матрицы Матрица с 3 строками и n столбцами. Вывести каждый столбец, первый элемент которого больше среднего арифметического элементов данного столбца. https://www.cyberforum.ru/ pascalabc/ thread1566228.html Pascal ABC Составить программу для вычисления суммы Составить программу для вычисления суммы: \sum_{k=2}^{20}(1+\frac{{cos}^{2}kx}{k+x}) https://www.cyberforum.ru/ pascalabc/ thread1566100.html
Составить программу для вычисления S Pascal ABC
Составить программу для вычисления величины S по формуле: S=\frac{{e}^{\sum_{i=1}^{n}sin{x}_{i}}}{\prod_{j=1}^{m}{y}_{j}+\sum_{k=1}^{S}ln\left|{z}_{k} \right|}
Pascal ABC Переписать в новый файл строки Здравствуйте, помогите пожалуйста найти ошибку в решении: {11) Переписать в новый файл строки, которые не содержат заданный символ.} var t,t2: text;s:char; n:char; i:byte; begin ... https://www.cyberforum.ru/ pascalabc/ thread1565990.html
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
31.10.2015, 06:32 0

Найти все симметричные четырехзначные натуральные числа (например, 7557,1221), которые делятся на заданное - Pascal ABC - Ответ 8271230

31.10.2015, 06:32. Показов 2590. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
var a,i,j:integer;
begin
 write('a=?: ');readln(a);
 for i:=1 to 9 do
  for j:=0 to 9 do
   if (i*1000+j*100+j*10+i) mod a=0 then write(i*1000+j*100+j*10+i,' ')
end.


Вернуться к обсуждению:
Найти все симметричные четырехзначные натуральные числа (например, 7557,1221), которые делятся на заданное Pascal ABC
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.10.2015, 06:32
Готовые ответы и решения:

Найти все симметричные натуральные четырёхзначные числа.
Найти все симметричные натуральные четырёхзначные числа. Например 4554, 2222!

Найти все симметричные натуральные четырехзначные числа
Найти все симметричные натуральные четырехзначные числа. Например: 4554, 2222.

найти все симметричные четырехзначные числа , например 7667, 1331
найти все симметричные четырехзначные числа , например 7667, 1331

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

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

Вывести натуральные числа, которые не делятся на 3, 4 и 5 и не превосходят заданное
Как сделать , чтобы он ставил сразу несколько условий? А то цикл проходя и видя ,что он не делится...

Найти все натуральные числа, которые делятся на каждую из своих цифр
Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр....

Найти все натуральные числа в диапазоне [a, b], которые делятся на каждую из своих цифр
Найти все натуральные числа в диапазоне , которые делятся на каждую из своих цифр.

Найти все натуральные двухзначные числа, которые делятся на n или содержат цифру n
Найти все натуральные двухзначные числа, которые делятся на n или содержат цифру n. Где n=2. Так...

На отрезке найти все натуральные числа, которые делятся на каждую из своих цифр
3. На отрезке от 1 до n найти все натуральные числа, которые делятся на каждую из своих цифр.

Найти все натуральные двухзначные числа, которые делятся на n или содержат цифру n
Найти все натуральные двухзначные числа, которые делятся на n или содержат цифру n. на С#

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