Объяснение:
Первыми переправляются дети.
Сын возвращается к маме-папе.
Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.
Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.
После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.
Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.
Рыбак едет к родителям и высаживается.
Дочь садится и едет за братом, привозит его с собой обратно (наконец-то вся семья снова вместе), они отдают лодку рыбаку.
Лодка пересекла реку 13 раз.
- Мазмұн анықтамасын және мазмұнды пішімдеу әрекеттерін біледі;
- Word мәтіндік редакторының көмегімен бөлім атауын, тақырыбын автоматты түрде жинақтап және оны ұйымдастыра алады;
Тілдік мақсаттар
- Мазмұнды құрады және онымен жұмыс жасай алады.
Лексика мен терминология:
Мазмұны – Оглавление - Interpreter
Диалогпен жазу үшін пайдалы сөздер мен тіркемелер:
Мазмұн не үшін қажет?
Тақырыпқа стиль не үшін қажет?
Мазмұнды жаңарту қандай мақсатқа қолданылады?
Мазмұннан қажетті тақырыпқа қалай өтуге болады?
Құндылықтарға баулу
Қазақстандық патриотизм және азаматтық жауапкершілікке, мәтінді безендіруде оқушылардың қызығушылығын ояту, сөздікқорын, ойлау қабілетін, компьютерде жұмыс жасау дағдыларын қалыптастыру.
Пәнаралық байланыс
Қазақ тілі, ағылшын тілі (мәтінді тергенде, сөздікпен жұмыс жасағанда)
Математика (сызбаларды, әртүрл іпішімдерді қолданғанда)
Алдыңғы білім
Сілтеменің анықтамасын, гиперсілтемелерді қою әдістерін пайдалануды, мәтін теруді, пішімдеуді, қаріп, стиль орнатуды біледі
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=ReadInteger('От повторов какого числа избавляемся?');
var id:=a.FindIndex(t->t=k);
var b:=Copy(a);
if id>-1 then begin
var i:=0;
while a[i]<>k do begin // до первого появляния нужного числа
b[i]:=a[i];
i+=1
end;
b[i]:=a[i]; i+=1; // само число
var j:=i; // остальные такие числа будеи пропускать
while i<a.Length do begin
if a[i]<>k then begin b[j]:=a[i]; j+=1 end;
i+=1
end;
SetLength(b,j)
end;
b.Println
end.
Пример
n= 20
-43 -39 -9 -50 3 26 -43 9 -19 35 -13 -38 2 -32 -7 36 0 -43 11 -40
Укажите число-дубликат: -43
-43 -39 -9 -50 3 26 9 -19 35 -13 -38 2 -32 -7 36 0 11 -40