У каждого человека есть место, где он чувствует себя в безопасности. Для меня такое место – мой дом, теплый и уютный, с детства оберегающий мой покой. Когда мне становится грустно, я прихожу сюда и смотрю любимые фильмы, когда весело – приглашаю друзей. В стенах дома собираются по праздникам родственники, а летом в гости приезжает моя любимая бабушка. Она делает мне блинчики с вареньем, и дом наполняется вкусным запахом, который я помню и люблю с тех пор, как мне исполнилось пять лет.
Мой дом очень красивый и в нем царит особенная, душевная атмосфера. Стены украшены моими детскими фотографиями и фотографиями родителей, на подоконниках стоят цветы, которые я поливаю, вкладывая и свою частичку тепла в общий уют. Наверное, поэтому мне так дорог мой дом, который я очень люблю всем сердцем. Это мой собственный маленький уголок, в котором можно спрятаться от всего мира. Моя крохотная планета, где я радуюсь миру, подглядывая за ним через книгу. Иногда я представляю себе, как книжные персонажи оживают и беседуют со мной, иногда засыпаю над любимым приключенческим романом, или задумчиво перелистываю страницы, думая о своем будущем и о школьных друзьях.
Мне всегда хочется возвращаться домой: днем после уроков или вечером после прогулки. Если на улице холодно, то дом согревает меня своими стенами, а когда жарко – я нахожу в нем долгожданную прохладу. Мой дом ласково колышет меня перед сном. Я закрываю глаза и представляю себя капитаном большого корабля, который несет меня по волнам навстречу приключениям. Так было всегда, и даже сейчас, когда я начинаю взрослеть, я все ещё чувствую ветер странствий и шепот океанского бриза. Поэтому мне всегда хочется вернуться под теплый кров, где можно спрятаться от дождя и от снега, смотреть, как снежинки медленно тают на оконном стекле и пить горячий чай.
Надеюсь правильно
Объяснение:
program z1;
var a:array[1..10] of integer;
i,s:integer;
begin
s:=0;
write('Массив: ');
for i:= 1 to 10 do
begin
a[i]:=random(1000);
write(a[i],' ');
if (a[i]>99) and (a[i]<1000) and (a[i] mod 10 mod 2 = 0) and (a[i] div 100 mod 2 <> 0) then s:=s+a[i]
end;
writeln;
write('Сумма элементов массива среди, трехзначных чисел, у которых последняя цифра четная, первая нечетная: ',s)
end.
Объяснение:
(a[i]>99) and (a[i]<1000) - проверка числа на трёхзначность
(a[i] mod 10 mod 2 = 0) - проверка последней цифры числа на чётность
(a[i] div 100 mod 2 <> 0) - проверка первой цифры числа на нечётность
все условия соединены and, т.к. должны выполняться одновременно
