Реальный - которого ты можешь коснуться почувствовать и т.д.
<span>"C:\TEACHER\TXT\DOC\Информатика.txt" - полное имя файла
Можно разбить на каталог - "</span>C:\TEACHER\TXT\DOC" - и имя файла - "Информатика.txt".
Так как сейчас файл по условию находится в подкаталоге, то, если перейти на каталог выше, мы окажемся в изначальном каталоге. То есть "C:\TEACHER\TXT"
MSPaint -> входит в состав множества графических редакторов
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var ЕстьКусков,НадоКусков:integer;
Readln(ЕстьКусков,НадоКусков);
var Длины:=ReadArrInteger(ЕстьКусков);
var ОбщаяДлина:=Длины.Sum;
if НадоКусков>ОбщаяДлина then Writeln(0)
else begin
var ДлинаКуска:=ОбщаяДлина div НадоКусков;
repeat
if Длины.Select(Кусок->Кусок div ДлинаКуска).Sum >=НадоКусков then break
else ДлинаКуска-=1;
until false;
writeln(ДлинаКуска)
end
end.
<u>Пример</u>
4 11
802 743 457 539
200
Int A[6];
bool B = false;
for(int i = 0; i < sizeof(A); i++) {
A[i] = random(6);
if(i > 0 && A[i-1] == A[i])
B = true;
}
cout << "Массив: " << A[0] << A[1] << A[2] << A[3] << A[4] << A[5] << endl;
if(B == true)
cout << "Есть" << endl;
else
cout << "Нет" << endl;