Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Дано натуральное число А. Записать убывающую последовательность чисел (Процедуры и функции) https://www.cyberforum.ru/ turbo-pascal/ thread815721.html
Дано натуральное число А. Записать убывающую последовательность чисел без последней цифры предыдущего (н-р, а=2345, полученая последовательность 234 23 2 ).
Найти все медианы треугольника (Процедуры и функции) Turbo Pascal
Задан треугольник A,B,C. Найти все медианы треугольника.
Turbo Pascal Даны 3 точки, какая из точек находится дальше точки D (Процедуры и функции) https://www.cyberforum.ru/ turbo-pascal/ thread815713.html
Даны 3 точки A(X1,Y1),B(X2,Y2),C(X3,Y3). Какая из точек находится дальше от точки D(X4,Y4)
Turbo Pascal Даны 3 точки. Составить алгоритм, определяющий которая из точек находитсяближе к началу координат. (Процедуры и функции) Даны 3 точки A(X1,Y1),B(X2,Y2),C(X3,Y3). Составить алгоритм, определяющий которая из точек находитсяближе к началу координат. https://www.cyberforum.ru/ turbo-pascal/ thread815708.html
Turbo Pascal Найти силу тока в цепи (Процедуры и функции)
Три сопративления R1, R2,R3 Соединены параллельно. Найдите силу тока соединения, если напряжение в цепи равно U.
Turbo Pascal Поворот матрицы на 90 https://www.cyberforum.ru/ turbo-pascal/ thread815685.html
Есть код программы и примерно с момент где Р присваивается 1 понять в коде ничего не могу. Может ли кто объяснить какая строка что выполняет? program lab_6_2; var i,p,m,j:integer; dv:array...
Turbo Pascal Найти все углы треугольника (Процедуры и функции) https://www.cyberforum.ru/ turbo-pascal/ thread815669.html
Найти все углы треугольника со сторонами A,B,C
Найти высоты треугольника (Процедуры и функции) Turbo Pascal
Найти высоты треугольника, две стороны которого равны A и B, а угол между этими сторонами равен G/
Turbo Pascal В доме проживают 70 семей В доме проживают 70 семей. Найдите номер квартиры, в которой проживает самая многочисленная семья. https://www.cyberforum.ru/ turbo-pascal/ thread815666.html Turbo Pascal Заменить все нечетные, положительные элементы матрицы на 100 Заменить все нечетные, положительные элементы матрицы А(n,m) на100. https://www.cyberforum.ru/ turbo-pascal/ thread815642.html
Turbo Pascal Строки
Помогите Дана последовательность слов длиной N. Слова состоят из строчных латинских букв и разделены запятыми. Получить новую последовательность, состоящую из слов, расставленных по алфавиту....
Turbo Pascal Нарисовать график функции https://www.cyberforum.ru/ turbo-pascal/ thread815583.html
Здравствуйте! Подскажите пожалуйста, как сделать так, чтобы при вводе с клавиатуры 3 чисел a, b и c, можно было построить график функции y=a*x*x+b*x+c? Оси координат я нарисовал, но с графиком не...
Почетный модератор
64275 / 47574 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
22.03.2013, 18:36 0

Вывести на экран все четырехзначные числа, кратные 1111 - Turbo Pascal - Ответ 4293730

22.03.2013, 18:36. Показов 2487. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var i:integer;
begin
clrscr;
i:=1111;
while i<=9999 do
 begin
  writeln(i);
  i:=i+1111;
 end;
readln
end.


Вернуться к обсуждению:
Вывести на экран все четырехзначные числа, кратные 1111 Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2013, 18:36
Готовые ответы и решения:

Вывести на экран все кратные числа заданным
Ребята помогите программу через процедуру записать Даны натуральные числа А и В. Вывести на экран...

Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.

Вывести на экран все числа, кратные 2 и 3 из интервала [25, 145]
Вот 3 задачки, помогите чем можете пожалуйста. 1.Вывести на экран все числа, кратные 2 и 3 из...

Вывести на экран все целые числа из диапазона от А до В, кратные трём
задали 10 задач помогите решить 1) вычислить int(1.3) 2)Найти и объяснить ошибки в следующей...

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

Вывести на экран все двузначные числа,кратные 11 и найти их сумму
Знаю надоела) Вывести на экран все двузначные числа,кратные 11 и найти их сумму.

Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму
Вывести на экран все Двухзначные числа от 1 до 100 кратные 5 и найти их сумму Добавлено через 5...

Вывести на экран все кратные тринадцати натуральные числа, меньше 100
Есть еще такая задачка на циклы. Вывести на экран все кратные тринадцати натуральные числа, меньше...

Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму.
Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних,...

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