Построение блок-схем 1. Отыскать сумму четных чисел из первых 10 естественных чисел.Program

Построение блок-схем
1. Отыскать сумму четных чисел из первых 10 естественных чисел.

Program Z31;

Var
N,S: integer;

Begin


S:=0;


For N:=1 to 10 do

If (N Mod 2)=0 Then
S:=S+N;

Writeln (сумма чётных из первых 10 естественных чисел одинакова , S);

End.




2. Название сезона по номеру месяца

Program Z32;

var

Month: integer;

Season: string;

begin

write('Введите
номер месяца: ');

readln(Month);

if (Month=1) or (Month=2) or (Month=12) then

Season := 'Зима'

else if (Month=3) or (Month=4) or (Month=5)
then

Season := 'Весна'

else if (Month=6) or (Month=7) or (Month=8)
then

Season := 'Лето'

else Season := 'Осень';

writeln('Это ',Season)

end.