Var
k:integer;
a,s:real;
begin
while k < 7 do
begin
write('Введите число: ');
readln (a);
s:=s+a;
k:=k+1
end;
writeln('Сумма 7 чисел равна: ',s)
end.
Переводим 260 в двоичную систему счисления и видим:
Между двумя объектами: Андрей сын Ивана
Между объектом и множеством объектов: диск является носителем информации
Между двумя множествами объектов: колеса входят в состав автомобиля
Диск-носитель
Бумага-носитель
Флешка-носитель
Указатель - носитель