Информатика: Составьте презентацию в word(4 слайда) Тема: времена года

Составьте презентацию в word(4 слайда) Тема: времена года

👇

Ответ:

vuqar203

22.01.2021

Четыре времени года:

Времена года состоят из четырех сезонов: лето, когда дни наиболее длинные, а солнце поднимается высоко над горизонтом; зима - дни короткие, а ночи длинные; межсезонные времена года весна и осень, на которые приходится период переходной смены сезонов лета и зимы.

времена года летовремена года зима

Весна - март, апрель, май. Природа начинает пробуждение после зимней спячки, начинается период роста и цветения растений.

Лето - июнь, июль, август. Период активного размножения и роста растительного мира.

Осень - сентябрь, октябрь, ноябрь. Замедление роста, подготовка природы к зимнему сну.

Зима - декабрь, январь, февраль. Период затишья, длительного сна природы.

(для умеренного пояса, центральной части России)

Лето, сменяет прохладная осень, потом наступает зимняя стужа и после приходит долгожданная весенняя оттепель - и так бесконечное количество раз, из года в год. В чём же таинство этого природного явления и почему происходит смена времен года на Земле?

Чтобы в полной мере визуально представить картину как это происходит, стоит рассказать, как движется земной шар в космосе.

Этих движений два:

1) Земля вокруг своей оси (условной линии, проходящей через центр северного и южного полюсов) совершает за сутки полный оборот. Благодаря этому астрономическому явлению день сменяет ночь. Когда на континентах, обращённых к Солнцу, горячий полдень, на неосвещаемых континентах - глубокая ночь.

2) Земля перемещается по эллипсовидной траектории вокруг Солнца, совершая полный оборот в течение 1 года.

4,6(18 оценок)

Открыть все ответы

Ответ:

эмилисенок2

22.01.2021

Текст программы (Pascal)
var
a,b,c,d,e:byte;
k:integer;
begin
k:=0;
for a:=1 to 9 do begin
    for b:=0 to 9 do
      if b<>a then begin
        for c:=0 to 9 do
          if (c<>a) and (c<>b) then begin
            for d:=0 to 9 do
              if (d<>a) and (d<>b) and (d<>c) then begin
                e:=0;
                repeat
                  if a*c-c*e=a-b+c+d+e then Inc(k);
                  e:=e+2
                until e<9
              end
          end
      end
end;
Writeln(k)
end.

Тестовое решение:
190

4,5(12 оценок)

Ответ: