16 =
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)
Var a:array[1..10]of real;
i:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10,100)/10;
write(a[i]:6);
end;
writeln();
for i:=1 to 10 do
write(sqr(a[i]):6);
<span>end.</span>
Uses graphabc;
procedure vvod(var a,b: integer);
begin
writeln('Введите ширину отступа');
read(a);
writeln('Введите ');
read(b);
end;
procedure squares(r,nachdl: integer);
var x1,y1,x2,y2: integer;
begin
y1:=0;
x1:=0;
x2:=nachdl;
y2:=nachdl;
while x2<windowheight do
begin
drawrectangle(x1,y1,x2,y2);
x2:=x2+r;
y2:=y2+r;
nachdl:=nachdl+r;
end;
end;
var
r,nachdl: integer;
begin
vvod(r,nachdl);
squares(r,nachdl);
<span>end.</span>
APPLE FOR DINNER Как то так
Ответ:
Анюта - Прима.
Анна - Бриз.
Валя - Фиеста.
Маша - Тропиканка.
Объяснение:
Сократим имена для удобства.
Анюта - Аю, Анна - Ан, Валя - В, Маша - М
Прима - П, Фиеста - Ф, Бриз - Б, Тропиканка - Т.
Берём методом исключения, а потом методом подбора.
Валя - не Т и П
Анюта - не Т
в предложении про кафе делаем вывод:
Валя и Маша - не Б.
Анюта - не Б
Делаем вывод:
Мы знаем что Валя точно проживает в Ф.
Анюта в П или Ф. Ф занят, значит П.
Маша - смотря по другим девчонкам и метод исключения, в Т.
Последняя Анна в Б.