• Предмет: Информатика
  • Автор: zenaprotopopovi753
  • Вопрос задан 5 месяцев назад

ДОПИСАТИ ПРОГРАМУ ПАСКАЛЬ
program maxdil;
var n, i, max:byte;
begin
writeln ('Введи натуральне число, програма знайде максимальний дільник');
read (n);
max:=1;
for i:=1 to n-1 do
begin

end;

write ('Максимальний дільник дорівнює ', max);
end.

Ответы

Ответ дал: markesenko7
0

Відповідь:

program maxdil;

var n, i, max: byte;

begin

writeln ('Введіть натуральне число, програма знайде максимальний дільник');

readln (n);

max := 1;

for i := 2 to n do

begin

if (n mod i = 0) and (i > max) then

max := i;

end;

writeln ('Максимальний дільник дорівнює ', max);

readln;

end.

Пояснення:

Ответ дал: kirillantonchuk
0

Відповідь:program maxdil;

var n, i, max:byte;

begin

writeln ('Введи натуральне число, програма знайде максимальний дільник');

readln (n);

max:=1;

for i:=2 to n-1 do

begin

if (n mod i) = 0 then

begin

max:=i;

end;

end;

writeln ('Максимальний дільник дорівнює ', max);

readln;

end.

У програмі було додано частину, яка перевіряє кожне число в діапазоні від 2 до n-1, і якщо воно є дільником n і більшим за попередній максимальний дільник, то це число стає новим максимальним дільником. Також додано команду readln на кінці програми, щоб відобразити результат відразу після виконання програми.

Пояснення:

Вас заинтересует