var i,n: integer;
begin
writeln ('vvedit chislo');
readln (n);
for i:=2 to n div 2 do
if (n mod i=0) then
writeln (i);
readln
end.
Головна | Реєстрація | Вхід | RSS | П`ятниця, 07.11.2025, 1:56 AM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Дільник паскальvar i,n: integer; begin writeln ('vvedit chislo'); readln (n); for i:=2 to n div 2 do if (n mod i=0) then writeln (i); readln end. |
|
Guide-for-students © 2025 |
Створити безкоштовний сайт на uCoz |