Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Вывести на экран последовательность чисел 1/1, 1/2, 1/3, 1/4, и т.д. до тех пор, пока выводимое число не станет меньше https://www.cyberforum.ru/ pascalabc/ thread2592667.html Ввести с клавиатуры вещественное число x (0<x<1). Вывести на экран последовательность чисел 1/1, 1/2, 1/3, 1/4, и т.д. до тех пор, пока выводимое число не станет меньше или равно x. Числа выводить в десятичном представлении, с точностью 6 знаков после десятичной точки.	Pascal ABC Вывести на экран количество заглавных букв среди них С клавиатуры вводятся латинские буквы, пока не будет введена точка. Вывести на экран количество заглавных букв среди них.
Pascal ABC Найти сумму всех четных чисел в диапазоне от 25 до N https://www.cyberforum.ru/ pascalabc/ thread2592665.html Во всех заданиях необходимо использовать цикл с постусловием и только его. Ввести с клавиатуры нечетное натуральное число N (25<N<100). Найти сумму всех четных чисел в диапазоне от 25 до N. Вывести результат на экран.	Pascal ABC Создайте модуль на языке Pascal https://www.cyberforum.ru/ pascalabc/ thread2592635.html А) обьявления типов данных ( для одномерных и двумерных массивов) Б) функцию, вычисляющую значение: у=min{ab,ac,bc} В) процедуру, реализующую следующий алгоритм: Найти среднее арифметическое всех отрицательных элементов каждого столбца матрицы Q(m,n)
Pascal ABC Описать процедуру, возвращающую вектор длины всех слов исходного текста Помогите пожалуйста ну ооочень. Словом назовем всякую последовательность букв латинского алфавита длины не более 20. Предложением — всякую последовательность не более 30 слов, разделенных одним или несколькими пробелами. Описать процедуру, возвращающую вектор длины всех слов исходного текста.	Pascal ABC Напечатать эту же последовательность слов, но удалив из нее повторные вхождения слов https://www.cyberforum.ru/ pascalabc/ thread2592475.html Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать эту же последовательность слов, но удалив из нее повторные вхождения слов.
Pascal ABC Составить программу с функцией или процедурой Составить программу, определяющую, в каком из данных двух чисел больше цифр (создать подпрограмму для вычисления кол-ва цифр в числе). https://www.cyberforum.ru/ pascalabc/ thread2592466.html	Составить программу с while или for Pascal ABC Задание: Вывести на экран числовой ряд действительных чисел от 10 до 20 с шагом 0,2 Мой код: Program ABC; const h=0.2; var a:Real; begin a:=20; While a>10+h do begin
Pascal ABC Создать модуль для объявления типов для одномерных и двумерных массивов Создайте модуль на языке Pascal, пожалуйста! Объявления типов данных ( для одномерных и двумерных массивов) https://www.cyberforum.ru/ pascalabc/ thread2592372.html	Pascal ABC Циклический сдвиг в матрице змейкой. Дана прямоугольная целочисленная матрица размера m строк и n столбцов. Последовательность элементов матрицы, расположенных по чётным строкам слева направо, по нечётным строкам справа налево, (строки рассматриваем последовательно сверху вниз) назовем «змейкой». Сдвинуть циклически элементы змейки на одну позицию к концу. https://www.cyberforum.ru/ pascalabc/ thread2592366.html
Pascal ABC Вывести в выходной файл такие пары слов, чтобы одно из них можно было получить перестановкой букв другого слова Во входном файле дан текст, в котором есть слова. Вывести в выходной файл такие пары слов, чтобы одно из них можно было получить перестановкой букв другого слова. Например, слова «слово» и «волос» образуют такую пару. Каждая пара – в отдельной строке выходного файла.	Pascal ABC Найти все натуральные числа, попадающие в отрезок [A; B], в разложении которых нет простых множителей, больших 5. Даны два натуральных числа A и B (A <= B). Найти все натуральные числа, попадающие в отрезок , в разложении которых нет простых множителей, больших 5. https://www.cyberforum.ru/ pascalabc/ thread2592324.html

ZX Spectrum-128

6811 / 4568 / 4819

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

Сообщений: 22,438

03.03.2020, 10:25

Вывести на экран натуральные степени числа 2, которые меньше N - Pascal ABC - Ответ 14301642

03.03.2020, 10:25. Показов 2310. Ответов 1

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

Сообщение было отмечено Badproge как решение

Решение

Pascal

var
  x: real; 
  n, i: integer;
 
begin
  x := 1; 
  i := 0;
  readln(n);
  repeat
    Writeln(i:5, x:12:0);
    x := x * 2; 
    Inc(i);
  until x > n;
end.

Вернуться к обсуждению:
Вывести на экран натуральные степени числа 2, которые меньше N Pascal ABC

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

03.03.2020, 10:25

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

В массив A[N] занесены натуральные числа. Вывести на экран индексы элементов,которые меньше данного K.
Буду благодарен за помощь!:-)

Найти все натуральные числа, которые лучше заданного и меньше его
число а лучше б, если сумма цифр а больше суммы цифр числа б, а в случае равенства сумм цифр, если...

Вывести на экран числа натуральные от 100 до первого числа включительно, которое делится на N и на 3 одновременно
Во всех заданиях необходимо использовать цикл с постусловием и только его. Ввести с клавиатуры...

Вывести числа массива, которые по модулю меньше данного положительного числа A
(все массивы заполняются случайными целыми числами в диапазоне от -50 до 50.)В данном одномерном...

	03.03.2020, 10:25

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

03.03.2020, 10:25

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

Вывести на экран таблицу значений функции f(x)=x в 4 степени+3х в 3 степени +5х во второй степени+7 х=1,2..10
18. Вывести на экран таблицу значений функции f(x)=x в 4 степени+3х в 3 степени +5х во второй...

Вывести на экран натуральные числа от 1 до 20 в обратном порядке
Вывести на экран натуральные числа от 1 до 20 в обратном порядке var a, b, i: integer; ...

Вывести числа, которые положительны, но меньше 10
Вводить по очереди 6 чисел, печати те из них, которые положительные но меньше 10.

Вывести все натуральные числа, кратные 5, которые не превышают заданное число N
Вывести все натуральные числа, кратные 5, но которые не превышают число N, введенное пользователем...

Наверх