1941 жылдың 26 маусымында Радошкович деревнясының тұсында болған шайқаста қазақстандық батыр Бақтыораз Бейсекбаевтың қаһармандығы көпке дейін айтылмай келді. Ол отқа оранып, жанып бара жатқан ұшағын жердегі кеңес жауынгерлеріне шабуылдаушы неміс техникаларына қарсы бағыттаған ұшқыш Александр Маслов экипажының құрамында болған еді. Аңызға бергісіз осынау өшпес ерлік біразға дейін даңқты ұшқыш Николай Гастеллоға телініп келген-ді. Алайда, тарихи шындық елге аян болды. Қазір бұл жерде арнайы мұражай бар. «Әуе отты таран» мұражайында 100-ден астам жәдігер жинақталған. Солардың бірі – Бақтыораз Бейсекбаевтан қалған пулемет. Бұл қаруды соғыс жәдігерін іздеушілер ұшақтың құлаған жерінен тапқан.
ҚАНДЫ ШАЙҚАС – КӨЗ АЛДЫҢДА
Әлемнің 13 мемлекеті қатысқан халықаралық әскери шара Беларуссияның Брест қаласында өтті. «Брест қамалы – 1941 жыл, 22 маусым» деп аталатын фестиваль осымен алтыншы рет өткізілді. Осыдан тура 75 жыл бұрын Ұлы Отан соғысы дәл осы Брест қамалын қорғаудан басталған болатын. Халықаралық фестивальға 500-ден астам адам қатысты. Олардың қатарында қазақстандық «Атырау-Брест» экспедициясының сарбаздары да болды. Отан соғысының алғашқы күнінде Гитлердің жоспары бойынша Брест қамалын 8 сағатта жаулап алып, әрі қарай Кеңес Одағының территориясына емін-еркін өту еді. Неміс әскері біздің жауынгерлердің тегеурінді қарсылығына тап болды. Жан аямай соғысқан ерлердің арасында қазақстандықтар да аз болмады.
Сначала надо избавиться от ошибок (пункт №3) иначе не сможем выполнить 1 и 2 пункт задания. Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10; Исправляем N:N div 10; на N:= N div 10;
После исправления ошибок при вводе 537 получим 3 Программа будет работать правильно для любого числа, у которого вторая цифра слева меньше первой цифры, например: 7193
Чтобы программа работала правильно для всех чисел надо изменить это: while N > 10 do на while N > 0 do
После всех исправлений код программы стал таким: var N, k: integer; begin readln(N); k := 9; while N > 10 do begin if (N mod 10 < k) then k := N mod 10; N := N div 10; end; write(k) end.
Перезагрузить комп либо обновить програму