Как открыть файл с правами администратора через - вопрос №11741972 от Сандалёк 25.11.2020 12:33

Question

Информатика: Как открыть файл с правами администратора через командную строку обычного пользователя?P.S. Если не знаете точного ответа, то не отвечайте

Сандалёк · Answer

Первая (N - количество чисел в исходной последовательности):

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number mod 5 = 0) and (number mod 7 <> 0) then
            count := count + 1;
    end;
    writeln('Count: ',count);
    readln;
end.

Вторая:

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number < 0) then
            writeln('Square of ',number,' equals ',number*number);
    end;
    readln;
end.