1. Информатика
  2. Язык паскаль решите через

Язык паскаль решите через вайл выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число). входные данные вводится натуральное число x выходные данные выведите все делители числа x

Pustynya Pustynya    3   08.10.2019 00:50    1

Ответы
alisgrhf alisgrhf  10.10.2020 02:56

Program x;

var

i , x : integer;

Begin

Readln(x);

I:=1;

While I <= x do

Begin

If x mod I = 0 then

Writeln(i);

Inc(I);

End;

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
AlenaBukalova AlenaBukalova  29.05.2019 23:50
Информатика. тема: оператор ветвления на паскале из 4 величин определить наименьшее решать типо: program begin readln и т.д....
Olesyaaaaaa1 Olesyaaaaaa1  27.07.2019 08:20
Азбука морзе позволяет кодировать символы для сообщений по радиосвязи, задавая комбинацию точек и тире. сколько различных символов (цифр, букв, знаков пунктуации и т. д.) можно...
katpetrompet4345 katpetrompet4345  27.07.2019 08:20
Создайте и распечатайте в строчку одномерный массив, длиной n, следующим образом: а(1)=14, а(2)=15, а(3)=16, а(4)=-17, а(5)=-18, а(6)=-19, а(7)=20, а(8)=21, а(9)=22, ?...
habman habman  27.03.2019 21:10
Всаду 100q фруктовых деревьев, из них 33q яблоки, 22q груши, 16q сливы и 5q вишен.в какой сист. сч. подсчитаны деревья? решите кто нибудь...
olgavish761 olgavish761  27.03.2019 21:10
Составить программу которая заполняет массив из 10 элементов случайными целыми числами из положительные, отрицательные и нулевые числа и выводит на экран....
flox1998 flox1998  27.03.2019 21:10
9класс. информатика. сосуды цилиндрической формы заполнены до краев жидкостью плотностью d=1200кг/м в кубе. составьте программу, которая вычесляет: а) давление столба жидкости на...
Anna678901 Anna678901  02.12.2020 23:18
Почему у одной диаграммы имеется несколько видов?​...
Сонякака332 Сонякака332  02.12.2020 23:18
Практическое занятие Задание 1 1. Построить прямоугольник со сторонами 120 мм и 210 мм. 2. Выполнить округление R8 мм. 3. Построить круг 1155 мм 4. Удалить лишние линии командой...
ТаняСажнева486 ТаняСажнева486  02.12.2020 23:22
Дан одномерный массив, найти все элементы кратные 3 и 5 сколько их что не так пишу? Var A:array[1..15]of integer; i,n:integer; begin writeln( введите количество элементов ); readln(n);...
Belcard Belcard  07.09.2019 21:20
Выведите на экран значение логического выражение,которое принимает значение true если кирпич имеющий форму прямоугольного параллепипеда с ребрами a,b,с может пройти через квадратное...

Популярные вопросы