Построение блок-схем 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.
