3. Знайдіть значення величини с після виконання команди розгалуження (рис. 18.8), якщо початкове значення b до-
рівнює:
а) 4; б) 6; в) 10.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

2*3=6

512*128*6=393216

393216: 1024=384кб

минимально возможное число бит для десятичных цифр равно 4,значит инф объем = 150симв * 4бит =600 бит,

ответ: 600 бит

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")