irinkaff1

05.08.2020 16:07

Информатика

Есть ответ 👍

Две программы на Паскале (файлы в формате pas или txt): одна программа через цикл While другая через цикл Repeat. Обе программы должны выдавать на экран все делители целого числа, введённого пользователем, а также их количество (делителей). Например, пользователь задал число 6. Обе программы должны вывести: "1 2 3 6; всего делителей - 4".

269

396

Посмотреть ответы 3

Ответы на вопрос:

chudnova2001kp07wio

Информатика

4,6(57 оценок)

Я не могу загрузить файлы, но вот коды. Создай файлы и вставь

repeat_.pas:

program repeat_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

repeat

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

until n < k;

WriteLn('всего делителей - ', counter);

end.

while_.pas:

program while_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

while (k <= n) do

begin

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

end;

WriteLn('всего делителей - ', counter);

end.

кошка448

Информатика

4,7(24 оценок)

Объяснение:

Программа для while

program whil;

var x,i,n:integer;

y:real;

begin

i:=1;

n:=0;

Writeln ('Введите число для которого необходимо определить делители: ');

Read (x);

WHILE (i<=x) DO

begin

if (x mod i=0) then

begin

y:=x/i;

n:=n+1;

Writeln (n,' делитель числа',x,' : ',y );

end;

i:=i+1

end;

Writeln ('Число делителей числа', x, ' : ',n)

end.

Программа для repeat

program repeats;

var x,i,n:integer;

y:real;

begin

i:=0;

n:=0;

Writeln ('Введите число для которого необходимо определить делители: ');

Read (x);

repeat

i:=i+1;

begin

if (x mod i=0) then

begin

y:=x/i;

n:=n+1;

Writeln (n,' делитель числа',x,' : ',y );

end;

until i>=x;

Writeln ('Число делителей числа', x, ' : ',n)

end.

7Настася7

Информатика

4,4(44 оценок)

один раз, при А=1 и В=0

тттттттттттттттттттттттт

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.