Var a,b: integer;
Begin
a:=2;
b:=4;
while b>=0 do
begin
b:=a*b+1;
a:=a-2;
end;
b:=b+a;
write (b);
End.
Program kontr;
var a:integer;
begin
writeln ('Vvedite celoe chislo');
readln(a);
if (a mod 3 = 0) then writeln ('Da')
else writeln ('Net');
end.
Адрес или путь к файлу
адрес файла в файловой системе операционной системе
пример
c:\windows\system32\etc\hosts
где
с: - диск
windows\system32\etc\ -путь к файлу
hosts - сам файл
Ответ:
program Delitel;
var
n, i, j, c, d: Integer;
a: array of Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n + 1);
for i := 1 to n do begin
c := 0;
for j := 1 to i do begin
if i mod j = 0 then
Inc (c);
end;
a [i] := c;
end;
c := 1;
for i := 1 to n do begin
if a [i] > a [c] then
c := i;
end;
WriteLn ('Число ', c, ' имеет ', a [c], ' делителей.');
ReadLn;
end.