Anna69666
07.05.2022 16:30

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
haskaa12
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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота