Составьте алгоритм нахождения суммы четных и нечетных чисел от 1 до 100. На языке ПАСКАЛЬ
uses crt;var
i,s1,s2:integer;begin for i:=1 to 100 do begin if i mod 2=0 then s1:=s1+i else s2:=s2+i; end; writeln('Сумма четных чисел: ',s1); write('Сумма нечетных чисел: ',s2);end.
i - цикловая переменнаяs1 - сумма нечётных чисел от 1 до 100s2 - сумма чётных чисел от 1 до 100vari, s1, s2 : integer;begins1 := 0;s2 := 0;for i := 1 to 100 do beginif i mod 2 = 0 thens2 := s2 + i;elses1 := s1 + i; end;writeln ('Сумма четных чисел: ', s2);writeln ('Сумма нечетных чисел: ', s1);end.
В какой оболочке земли живёт большинство живых организмов?
Из каких неживых частей состоит экосистема
На какие расы делятся население земли
Определение статуса военнослужащего (краткий ответ!!)
Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.