Сұрақтарға жауап берейін 1. Массив элементтерін белгілі бір параметрлермен қалай іздеуге болады? 2. Мах жоне min массивін табу алгоритмі қалай орында лады?
У каждого человека есть место, где он чувствует себя в безопасности. Для меня такое место – мой дом, теплый и уютный, с детства оберегающий мой покой. Когда мне становится грустно, я прихожу сюда и смотрю любимые фильмы, когда весело – приглашаю друзей. В стенах дома собираются по праздникам родственники, а летом в гости приезжает моя любимая бабушка. Она делает мне блинчики с вареньем, и дом наполняется вкусным запахом, который я помню и люблю с тех пор, как мне исполнилось пять лет.
Мой дом очень красивый и в нем царит особенная, душевная атмосфера. Стены украшены моими детскими фотографиями и фотографиями родителей, на подоконниках стоят цветы, которые я поливаю, вкладывая и свою частичку тепла в общий уют. Наверное, поэтому мне так дорог мой дом, который я очень люблю всем сердцем. Это мой собственный маленький уголок, в котором можно спрятаться от всего мира. Моя крохотная планета, где я радуюсь миру, подглядывая за ним через книгу. Иногда я представляю себе, как книжные персонажи оживают и беседуют со мной, иногда засыпаю над любимым приключенческим романом, или задумчиво перелистываю страницы, думая о своем будущем и о школьных друзьях.
Мне всегда хочется возвращаться домой: днем после уроков или вечером после прогулки. Если на улице холодно, то дом согревает меня своими стенами, а когда жарко – я нахожу в нем долгожданную прохладу. Мой дом ласково колышет меня перед сном. Я закрываю глаза и представляю себя капитаном большого корабля, который несет меня по волнам навстречу приключениям. Так было всегда, и даже сейчас, когда я начинаю взрослеть, я все ещё чувствую ветер странствий и шепот океанского бриза. Поэтому мне всегда хочется вернуться под теплый кров, где можно спрятаться от дождя и от снега, смотреть, как снежинки медленно тают на оконном стекле и пить горячий чай.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
function ДробьНесократима(Чис,Знам:integer):boolean; begin while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end; Result:=Чис=1 end;
begin for var Знаменатель:=2 to 7 do for var Числитель:=1 to Знаменатель-1 do if ДробьНесократима(Числитель,Знаменатель) then Write(Числитель,'/',Знаменатель,' '); Writeln end.
У каждого человека есть место, где он чувствует себя в безопасности. Для меня такое место – мой дом, теплый и уютный, с детства оберегающий мой покой. Когда мне становится грустно, я прихожу сюда и смотрю любимые фильмы, когда весело – приглашаю друзей. В стенах дома собираются по праздникам родственники, а летом в гости приезжает моя любимая бабушка. Она делает мне блинчики с вареньем, и дом наполняется вкусным запахом, который я помню и люблю с тех пор, как мне исполнилось пять лет.
Мой дом очень красивый и в нем царит особенная, душевная атмосфера. Стены украшены моими детскими фотографиями и фотографиями родителей, на подоконниках стоят цветы, которые я поливаю, вкладывая и свою частичку тепла в общий уют. Наверное, поэтому мне так дорог мой дом, который я очень люблю всем сердцем. Это мой собственный маленький уголок, в котором можно спрятаться от всего мира. Моя крохотная планета, где я радуюсь миру, подглядывая за ним через книгу. Иногда я представляю себе, как книжные персонажи оживают и беседуют со мной, иногда засыпаю над любимым приключенческим романом, или задумчиво перелистываю страницы, думая о своем будущем и о школьных друзьях.
Мне всегда хочется возвращаться домой: днем после уроков или вечером после прогулки. Если на улице холодно, то дом согревает меня своими стенами, а когда жарко – я нахожу в нем долгожданную прохладу. Мой дом ласково колышет меня перед сном. Я закрываю глаза и представляю себя капитаном большого корабля, который несет меня по волнам навстречу приключениям. Так было всегда, и даже сейчас, когда я начинаю взрослеть, я все ещё чувствую ветер странствий и шепот океанского бриза. Поэтому мне всегда хочется вернуться под теплый кров, где можно спрятаться от дождя и от снега, смотреть, как снежинки медленно тают на оконном стекле и пить горячий чай.
Надеюсь правильно
Объяснение:
// Внимание! Если программа не работает, обновите версию!
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7