ДОПИСАТИ ПРОГРАМУ ПАСКАЛЬ
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.
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.
Ответ
0
(0 оценок)
0
Ответ
0
(0 оценок)
0
kirillantonchuk
2 года назад
Светило науки - 43 ответа - 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 на кінці програми, щоб відобразити результат відразу після виконання програми.
Пояснення:
Відповідь:
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.
Пояснення: