Задан массив a из 15 целых чисел найти сумму четных и сумму нечетных элементов массива a, определить какая больше из них по модулю.

From random import randint a=[] x=0 y=0 for i in xrange(15):           value=randint(-50, 50)          if not value%2: y+=value          else: x+=value          a.append(value)      print "исходный массив: %s, сумма чётных: %i, сумма нечётных: %i, по модулю больше: %i".decode("utf-8")%(a, x, y, max(abs(x), abs(

ответ:

. в нужно вывести все составные числа из промежутка [2; n]. код программы:

program lab3;

var i,n,j,s,l: integer;

m: real;

begin

readln (n);

for i: =2 to n do

begin

s: =trunc (sqrt (i));

for l: =2 to s do

begin

m: = i mod l;

if m=0 then

write (' ',i);

end;

end;

end.

но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?

var

i, n, j, s, l: integer;

m: real;

begin

readln(n);

for i : = 2 to n do

begin

s : = trunc(sqrt(i));

for l : = 2 to s do

begin

m : = i mod l;

if m = 0 then

begin

write(' ', i);

break;

1. 2^6=64 - максимальное число  символов в алфавите, минимальное равно 2^5+1=33. то есть от 33 до 64 включительно. 2. 3  кбайта  = 3072 байта = 24576 бит     в алфавите 16 символов -> 2^x=16                                                     x=4 - бита на один  символ 24576/4=6144 символа ответ: 6144  символа в сообщении