10
первая единица показывает количество двоек, ноль показывает количество единиц.
4. 3; 6. 2; 7. 3; 8. 3;5. 4
Var
i,f, f0, f1: integer;
begin
f0 := 0;f1 := 1;
write(f0:4, f1:4);
for i := 1 to 8 do
begin
f := f1 + f0;
write(f:4);
f0 := f1;
f1 := f;
end;
end.
Тестовое решение:
0 1 1 2 3 5 8 13 21 34
2^4=16
следовательно один символ весит 4 бита
3кбайта =3*8*1024=24576 бит
24576/4=<u><em>6144 символов в сообщении </em></u>
program prTreug;
var a,b,y, P: real;
begin
writeln ('введите катеты прямоугольного треугольника');
read (a,b);
if (a<=0) or (b<=0) then
writeln ('такого треугольника нет')
else
begin
y:=sqrt(sqr(a)+sqr(b));
P:= a+b+y;
writeln ('гипотенуза = ',y:6:2);
writeln ('периметр = ',P:6:2);
end;
end.