Нина - 23 апреля (если дети одногодки то тут какая-то ошибка, так как на Нину остаётся только 23 апреля, но она должна быть старше Коли, однако решение возможно если упущено условие что один из детей старше на год)
Маша - 21 марта
Коля - 23 марта
Таня - 19 мая
Петя - 4 мая
1) 32*128*8=32786 символов на 8 страницах
N=2^i ; 16 = 2^4 ; i = 4 бита
<span>32768*4=131072 бита
теперь переводим в кбайт
</span>131072/8 = 16384 байт/1024 = 16кБ.
У меня так получилось
a:=9
b:=3
c:=1
1. a=b - нет
2. c:=1+(a-b)
a:=a-1
b:=b+1
c:=7
a:=8
b:=4
3.a=b - нет
4.c:=4
a:=7
b:=5
5.a=b - нет
6.c:=3
a:=6
b:=6
7.a=b - да
И выведет конечный результат
a:=6
b:=6
c:=3
Var
a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln('Сумма чисел: ',s);
<span>end</span>
Const col=14;
var i:byte;
T:array[1..col] of shortint;
begin
writeln('Массив из ',col,' элементов');
T[1]:=-2;
write(T[1]:6);
for i:=2 to col do begin
T[i]:=T[i-1]*(-1);
write(T[i]:6);
end;
end.