Впапке общего доступа расположен файл "поздравления". напишите алгоритм скачивания файла из указанной папки решить

Поскольку задание очень неточное и малопонятное, то сначала создадим общую папку и файл в ней, а потом скачаем ее с другого компьютера. Алгоритм для ОС Windows 10

Создадим общую папку

1) Одинаково называем рабочую группу у обоих компьютеров.

Пуск → Параметры → Система → О системе, пункт "Организация"

если разная, то Сведенья о системе → Изменить параметры → Изменить и ввести имя группы

2) Найти/Открыть папку, которую требуется сделать общей

3) Клик правой кнопкой мыши по папке → Свойства → Доступ → Расширенная настройка

4) Нажать «Открыть общий доступ к этой папке»

5) Открыть «Разрешения» и выставить необходимые разрешения

6) Создать или скопировать файл "поздравления" в выбранную папку

Скачать файл к себе на компьютер

1) Заходим в Проводник - Сеть

2) Находим компьютер, где лежит файл. Открываем

3) Открываем нужную папку, к которой дан общий доступ

4) При необходимости в всплывающем окне вводим логин и пароль учетной записи компьтера в который мы зашли (зависит от настроек доступа и политик безопасности)

5) Находим файл "поздравления" и копируем его.

6) Открываем целевую папку на своем компьютере и вставляем туда файл

Все

1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

int number; //Вводимое число

int difference_first, difference_second; //переменные проверки арифм. прогр.

cout << "Enter three digit number: "; cin >> number; //ввод трехзначного числа

while(number < 100 or number >= 1000){

 //проверка числа на трехзначность

 cout << "Error!\nEnter three digit number: "; cin >> number;

}

 difference_first = number % 10 - (number / 10 % 10); //разница между третьей цифрой и второй

 difference_second = (number / 10 % 10) - (number / 100 % 10); // разница между второй цифрой и первой

   if(difference_first == difference_second){ // если эти разницы равны, значит

    cout << "YES!" << endl;       // вывод, ДА

   }else cout << "NO!" << endl;      // иначе, НЕТ

system("pause");

return 0;

}