Pascal
------------------------------------------------------------------
var
x: integer;
begin
for x := -99 to 99 do
If abs(x) mod 10 = 7 then
writeln(x);
readln;
end.
всего 4+8+20=32 клубков.
к+ч=4+8=12
далее32/12=(примерно) 2,6 бит информации
Program Program1;
var
i,n,m,b:integer;
s,s1:string;
Begin
write('Введите значение m: ');
readln(m);
write('Введите значение n: ');
readln(n);
write('Введите значение b: ');
readln(b);
str(b,s);
for i:=m to n do
begin
str(i,s1);
if pos(s,s1)=0 then writeln(i);
end;
end.
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.
Ответ:
может 2-3-4-6 (BA-CB-DC-ED)
Объяснение: